Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv30814
Modified Files:
tran-builtins
Log Message:
implemented |over any any|
Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- tran-builtins 19 May 2003 08:35:18 -0000 1.38
+++ tran-builtins 19 May 2003 13:02:21 -0000 1.39
@@ -146,6 +146,9 @@
interpreter.toksrc.push(Lexer(str(name) + '.tran'))
interpreter.included[name] = 1
+over any any
+ interpreter.regstack.append(interpreter.regstack[-2])
+
'|name
if not name[0] in '&#!': name = '&' + name
interpreter.regstack.append(Symbol_Literal(name))
|
