[Wisp-cvs] wisp/users/dig tran-builtins,1.8,1.9

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

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv9778

Modified Files:
	tran-builtins 
Log Message:
implemented |:[|

Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- tran-builtins	16 May 2003 20:34:38 -0000	1.8
+++ tran-builtins	17 May 2003 04:48:55 -0000	1.9
@@ -58,6 +58,10 @@
     r = Regstack[-5:]; r.reverse()
     Regstack = Regstack[:-5] + r
 
+:[
+    # intended to be used before the macro's pattern
+    if Regstack: raise 'stack not empty for :[', Regstack
+
 :macro|name
     if len(Regstack) > 2: raise 'too long argument pattern', Regstack
     name = ' '.join([name] + [matchers(i).next() for i in Regstack])