[Wisp-cvs] wisp/users/dig tran-builtins,1.33,1.34

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

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