[Wisp-cvs] wisp/modules linux.wrti,1.21,1.22 universal.wrti,1.19,1.20 wisptyp.wrti,1.14,1.15

[<di...@us...>]

Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv30725/modules

Modified Files:
	linux.wrti universal.wrti wisptyp.wrti 
Log Message:
Replaced |sys:raw:execve| by Worth-written |sys:ns:execve|.

Index: linux.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/linux.wrti,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- linux.wrti	18 Sep 2002 21:00:49 -0000	1.21
+++ linux.wrti	18 Sep 2002 21:07:35 -0000	1.22
@@ -55,6 +55,7 @@
   (macro sys.creat (conform %ebx %ecx) 8 \sys (believe %eax))
   (macro sys.link (conform %ebx %ecx) 9 \sys (believe %eax))
   (macro sys.unlink (conform %ebx) 10 \sys (believe %eax))
+  (macro sys.execve (conform %ebx %ecx %edx) 11 \sys (believe %eax))
   (macro sys.chdir (conform %ebx) 12 \sys (believe %eax))
   ; |sys.time| takes no argument and returns the time
   (macro sys.time (conform) ,(mov %ebx 0) 13 \sys (believe %eax))

Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- universal.wrti	18 Sep 2002 21:03:20 -0000	1.19
+++ universal.wrti	18 Sep 2002 21:07:35 -0000	1.20
@@ -90,6 +90,12 @@
   (macro 2drop
     drop drop)
 
+  (macro 2swap
+    (copy 3)
+    (delete 4)
+    (copy 3)
+    (delete 4))
+
   (macro 2rot
     (copy 5)
     (delete 6)

Index: wisptyp.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/wisptyp.wrti,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- wisptyp.wrti	18 Sep 2002 20:58:04 -0000	1.14
+++ wisptyp.wrti	18 Sep 2002 21:07:35 -0000	1.15
@@ -42,6 +42,15 @@
   (macro untag-node
     -16 and)
 
+  (macro require-vector
+    dup get-type NC_VECTOR <> if 'WB_vector_huh swap go-raise then)
+
+  (macro vector-length
+    cell+ cell@)
+
+  (macro vector-data
+    2 cells + cell@)
+
   (macro require-c8string
     dup get-type NC_C8STRING <> if 'WB_c8string_huh swap go-raise then)