[Wisp-cvs] wisp/users/dig tran.py,1.47,1.48

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- tran.py	22 Apr 2003 14:51:25 -0000	1.47
+++ tran.py	22 Apr 2003 15:02:12 -0000	1.48
@@ -239,8 +239,6 @@
 def reserve (n): cursect.skip(n)
 def minor (reg):
     Regstack.append(Integer_Literal(reg[-1]))
-def swap (x, y):
-    Regstack.append(y); Regstack.append(x)
 def dup (x):
     Regstack.append(x); Regstack.append(x)
 def colon_macro (name):
@@ -401,7 +399,6 @@
     'reg':           ('simple',  Generic_Register),
     'reserve int':   ('builtin', reserve,     1),
     'sum':           ('simple',  Class_Marker('sum')),
-    'swap any any':  ('builtin', swap,        2),
     'sym':           ('simple',  Class_Marker('sym')),
 }
 
@@ -440,11 +437,15 @@
 .text
     cursect = Text
 
+//
+    Regstack = []
+
 drop any
     Regstack.pop()
 
-//
-    Regstack = []
+swap any any
+    y = Regstack.pop(); x = Regstack.pop()
+    Regstack.append(y); Regstack.append(x)
 '''
 
 for b in BUILTINS.split('\n\n'):