wisp-cvs

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- tran.py	22 Apr 2003 14:01:10 -0000	1.45
+++ tran.py	22 Apr 2003 14:32:30 -0000	1.46
@@ -438,7 +438,8 @@
 Meaning['.text'] = 'builtin', dot_text, 0
 
 # Stack
-Meaning['drop any'] = 'builtin', (lambda x: None), 1
+def drop_any (): Regstack.pop()
+Meaning['drop any'] = 'builtin', drop_any, 0
 
 # End of builtins