[Wisp-cvs] wisp/users/dig tran.py,1.82,1.83

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

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

Modified Files:
	tran.py 
Log Message:
implemented |...|

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- tran.py	17 May 2003 06:08:31 -0000	1.82
+++ tran.py	17 May 2003 08:10:38 -0000	1.83
@@ -228,7 +228,7 @@
         m = Meaning[tok]
         if isinstance(m, list): prep.push(Macro_Cursor(m))
         elif isinstance(m, Stackable): Regstack.append(m)
-        else: # assume tuple
+        elif isinstance(m, tuple):
             mtype = m[0]
             if mtype == 'builtin':
                 if m[2] & MA_PREFIX:
@@ -238,6 +238,7 @@
                 else:
                     m[1]()
             else: raise 'Unknown meaning type in', `Meaning[tok]`
+        else: raise 'Unknown meaning format for', tok
     else: raise 'bad token', tok
 
 Regstack = []
@@ -245,6 +246,7 @@
 
 MA_PREFIX = 1
 Meaning = {'reg': Generic_Register,
+           '...': Unique('...'),
            'tetras': ['dup', '+', 'dup', '+'], # FIXME
 }
 for m in 'any const int lit sum sym'.split(' '):