[Wisp-cvs] wisp/users/dig tran.py,1.49,1.50

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- tran.py	22 Apr 2003 15:05:35 -0000	1.49
+++ tran.py	22 Apr 2003 15:09:09 -0000	1.50
@@ -416,16 +416,14 @@
 def tetra_comma_sym (a): cursect.emit_tetra_sum([str(a)])
 Meaning['t, sym'] = 'builtin', tetra_comma_sym, 1
 
-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
-
-def drop_any (): Regstack.pop()
-Meaning['drop any'] = 'builtin', drop_any, 0
 
 # End of builtins
 BUILTINS = '''
 
+$-t, sym
+    a = Regstack.pop()
+    cursect.emit_tetra_sum([str(n)], relative = 1)
+
 .bss
     cursect = Bss
 
@@ -500,3 +498,5 @@
     f.close()
 
 main()
+
+# vim: nofen