Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv12875
Modified Files:
tran-builtins
Log Message:
added |bind int sym|
Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- tran-builtins 18 May 2003 15:19:57 -0000 1.33
+++ tran-builtins 18 May 2003 15:45:53 -0000 1.34
@@ -141,6 +141,11 @@
b, sym
interpreter.current[::1] = str(interpreter.regstack.pop())
+bind int sym
+ symbol = interpreter.regstack.pop()
+ value = interpreter.regstack.pop()
+ interpreter.current.place_symbol(symbol, value)
+
commit
interpreter.regstack.reverse()
interpreter.toksrc.push(Macro_Cursor(['$push'] * len(interpreter.regstack)))
|
