[Wisp-cvs] wisp/modules universal.wrti,1.15,1.16

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

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

Modified Files:
	universal.wrti 
Log Message:
Implemented the |dig| and |bury| Worth words.

Index: universal.wrti
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/universal.wrti,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- universal.wrti	11 Sep 2002 17:36:14 -0000	1.15
+++ universal.wrti	11 Sep 2002 17:36:55 -0000	1.16
@@ -11,6 +11,7 @@
 (ifndef _universal.wrti_ (define _universal.wrti_)
 
   ;; Stack manipulation
+
   (macro dup
     (copy 0))
 
@@ -36,6 +37,19 @@
 
   (macro over
     swap tuck)
+
+  (macro dig
+    (stack=! 1)
+    (->reg 0)
+    (register)
+    ,(mov ,0 (tetra %esp ,1 \tetras))
+    nip)
+
+  (macro bury
+    (stack=! 2)
+    (->reg 0)
+    ,(mov (tetra %esp ,0 \tetras) ,1)
+    drop drop)
 
   (macro ?dup
     dup if dup then)