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
|
