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)
|
