[Wisp-cvs] wisp/users/dig tran-builtins,1.30,1.31

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

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