[Wisp-cvs] wisp/users/dig tran-builtins,1.39,1.40

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

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

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

Index: tran-builtins
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran-builtins,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- tran-builtins	19 May 2003 13:02:21 -0000	1.39
+++ tran-builtins	22 May 2003 06:27:36 -0000	1.40
@@ -112,6 +112,11 @@
     interpreter.regstack.reverse()
     interpreter.toksrc.push(Macro_Cursor(['$push'] * len(interpreter.regstack)))
 
+constant int|name
+    if interpreter.meaning.has_key(name):
+        raise 'duplicate declaration', name
+    interpreter.meaning[name] = interpreter.regstack.pop()
+
 drop any
     interpreter.regstack.pop()