[Wisp-cvs] wisp/modules universal.wrti,1.17,1.18

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

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

Modified Files:
	universal.wrti 
Log Message:
Converted |rvec-set!| from C to Worth.

Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- universal.wrti	18 Sep 2002 20:58:04 -0000	1.17
+++ universal.wrti	18 Sep 2002 21:02:25 -0000	1.18
@@ -560,16 +560,19 @@
     ,(mov ,0 (tetra ,0)))
 
   (macro byte!
+    (stack>=! 2)
     (->reg 1 %eax)
     ,(mov (byte ,0) %al)
     drop drop)
 
   (macro wyde!
+    (stack>=! 2)
     (->reg 1 %eax)
     ,(mov (wyde ,0) %ax)
     drop drop)
 
   (macro tetra!
+    (stack>=! 2)
     (->reg 0)
     ,(mov (tetra ,0) ,1)
     drop drop)