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

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- tran.py	22 Apr 2003 15:02:12 -0000	1.48
+++ tran.py	22 Apr 2003 15:05:35 -0000	1.49
@@ -236,7 +236,6 @@
 def ref (name):
     Regstack.append(Symbol_Literal('&' + name))
 def align (n): cursect.align(n)
-def reserve (n): cursect.skip(n)
 def minor (reg):
     Regstack.append(Integer_Literal(reg[-1]))
 def dup (x):
@@ -397,7 +396,6 @@
     'minor reg':     ('builtin', minor,       1),
     'ref':           ('builtin', ref,         0 | MA_PREFIX),
     'reg':           ('simple',  Generic_Register),
-    'reserve int':   ('builtin', reserve,     1),
     'sum':           ('simple',  Class_Marker('sum')),
     'sym':           ('simple',  Class_Marker('sym')),
 }
@@ -442,6 +440,9 @@
 
 drop any
     Regstack.pop()
+
+reserve int
+    cursect.skip(Regstack.pop())
 
 swap any any
     y = Regstack.pop(); x = Regstack.pop()