[Wisp-cvs] wisp/users/dig tran.py,1.25,1.26

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

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

Modified Files:
	tran.py 
Log Message:
added the |const| class marker

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- tran.py	17 Apr 2003 11:16:09 -0000	1.25
+++ tran.py	17 Apr 2003 11:37:14 -0000	1.26
@@ -255,9 +255,14 @@
     elif isinstance(object, Integer_Literal):
         yield 'int'
         yield 'lit'
+        yield 'const'
     elif isinstance(object, Symbol_Literal):
         yield 'sym'
         yield 'lit'
+        yield 'const'
+    elif isinstance(object, Constant_Sum):
+        yield 'sum'
+        yield 'const'
     elif isinstance(object, Register):
         while object <> None:
             yield Registers[object]
@@ -364,6 +369,7 @@
     'align int':    ('builtin', align,       1),
     'any':          ('simple',  ClassMarker('any')),
     'b, lit':       ('builtin', b_comma,     1),
+    'const':        ('simple',  ClassMarker('const')),
     'drop any':     ('builtin', drop,        1),
     'dup any':      ('builtin', dup,         1),
     'include':      ('include',),
@@ -375,8 +381,8 @@
     'reg':          ('simple',  Generic_Register),
     'reserve int':  ('builtin', reserve,     1),
     'sum':          ('simple',  ClassMarker('sum')),
-    'sym':          ('simple',  ClassMarker('sym')),
     'swap any any': ('builtin', swap,        2),
+    'sym':          ('simple',  ClassMarker('sym')),
     't, lit':       ('builtin', t_comma,     1),
     'w, lit':       ('builtin', w_comma,     1),
 }