[Wisp-cvs] wisp/users/dig tran.py,1.43,1.44

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- tran.py	22 Apr 2003 13:54:16 -0000	1.43
+++ tran.py	22 Apr 2003 13:57:33 -0000	1.44
@@ -243,7 +243,6 @@
     cursect = Text
 def ref (name):
     Regstack.append(Symbol_Literal('&' + name))
-def drop (x): pass
 def align (n): cursect.align(n)
 def reserve (n): cursect.skip(n)
 def minor (reg):
@@ -407,7 +406,6 @@
     'align int':     ('builtin', align,       1),
     'any':           ('simple',  Class_Marker('any')),
     'const':         ('simple',  Class_Marker('const')),
-    'drop any':      ('builtin', drop,        1),
     'dup any':       ('builtin', dup,         1),
     'include':       ('include',),
     'int':           ('simple',  Class_Marker('int')),
@@ -441,6 +439,11 @@
 def dollar_minus_tetra_comma_sym (n):
     cursect.emit_tetra_sum([str(n)], relative = 1)
 Meaning['$-t, sym'] = 'builtin', dollar_minus_tetra_comma_sym, 1
+
+# Stack
+Meaning['drop any'] = 'builtin', (lambda x: None), 1
+
+# End of builtins
 
 current_recordee = None
 current_register_family = 0