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
|
