[Wisp-cvs] wisp/users/dig tran.py,1.55,1.56

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- tran.py	22 Apr 2003 15:30:55 -0000	1.55
+++ tran.py	22 Apr 2003 15:32:07 -0000	1.56
@@ -231,8 +231,6 @@
                 res += '- ' + `-this.scalar`
         return res
 
-def label (name):
-    cursect.place_symbol('&' + name)
 def align (n): cursect.align(n)
 def minor (reg):
     Regstack.append(Integer_Literal(reg[-1]))
@@ -358,7 +356,6 @@
     'const':         ('simple',  Class_Marker('const')),
     'include':       ('include',),
     'int':           ('simple',  Class_Marker('int')),
-    'label':         ('builtin', label,       0 | MA_PREFIX),
     'lit':           ('simple',  Class_Marker('lit')),
     'minor reg':     ('builtin', minor,       1),
     'reg':           ('simple',  Generic_Register),
@@ -420,6 +417,9 @@
 
 dup any
     Regstack.append(Regstack[-1])
+
+label|name
+    cursect.place_symbol('&' + name)
 
 ref|name
     Regstack.append(Symbol_Literal('&' + name))