[Wisp-cvs] wisp/users/dig tran.py,1.8,1.9

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

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv15322

Modified Files:
	tran.py 
Log Message:
added the |dup any| word

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- tran.py	14 Apr 2003 22:24:00 -0000	1.8
+++ tran.py	15 Apr 2003 15:44:09 -0000	1.9
@@ -75,6 +75,8 @@
     Regstack.append(long(reg[-1]))
 def swap (x, y):
     Regstack.append(y); Regstack.append(x)
+def dup (x):
+    Regstack.append(x); Regstack.append(x)
 def colon_macro (name):
     global State, Regstack, current_recordee
     if len(Regstack) > 2: raise 'too long argument pattern', Regstack
@@ -216,6 +218,7 @@
     'reg':          ('simple',  Generic_Register),
     'sum':          ('simple',  ClassMarker('sum')),
     'swap any any': ('builtin', swap,        2),
+    'dup any':      ('builtin', dup,         1),
     't, lit':       ('builtin', t_comma,     1),
 }
 current_recordee = None