Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv23485
Modified Files:
tran-builtins
Log Message:
implemented |times int|
Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- tran-builtins 17 May 2003 16:26:21 -0000 1.30
+++ tran-builtins 18 May 2003 11:20:51 -0000 1.31
@@ -202,6 +202,10 @@
t, sym
interpreter.current[::4] = str(interpreter.regstack.pop())
+times int|word
+ multiplier = interpreter.regstack.pop()
+ interpreter.toksrc.push(Macro_Cursor([word] * multiplier))
+
w, int
interpreter.current[::2] = long(interpreter.regstack.pop())
|
