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

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- tran.py	22 Apr 2003 15:27:40 -0000	1.54
+++ tran.py	22 Apr 2003 15:30:55 -0000	1.55
@@ -326,13 +326,6 @@
             prep.push_file(fn)
         else: raise 'Unknown meaning type in', `Meaning[tok]`
     else: raise 'bad token', tok
-def state_record (tok):
-    global State, current_recordee
-    if tok == Semicolon:
-        State = state_outer
-        current_recordee = None
-    else:
-        current_recordee.append(tok)
 def state_regs (tok):
     global State, current_register_family, current_register_index
     if tok != Semicolon:
@@ -398,6 +391,13 @@
     newmac = []
     Meaning[name] = ('macro', newmac)
     current_recordee = newmac
+    def state_record (tok):
+        global current_recordee, State
+        if tok == Semicolon:
+            State = state_outer
+            current_recordee = None
+        else:
+            current_recordee.append(tok)
     State = state_record
 
 :regs|family