[Wisp-cvs] wisp/users/dig tran-builtins,1.38,1.39

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

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