Changeset 398 for branches/thune/thread_safe/parse.c

Timestamp:

05/22/07 20:53:15 (18 months ago)

Author:

krobillard

Message:

Thune - parse lit-word now matches opcodes.

Files:

• branches/thune/thread_safe/parse.c (modified) (2 diffs)

branches/thune/thread_safe/parse.c

@@ -835 +835 @@
                     goto failed;
                 tval = iblk->ptr.cells + pos;
-                if( (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD))
+                if( (ur_is(tval, UT_WORD) ||
+                     ur_is(tval, UT_LITWORD) ||
+                     ur_is(tval, UT_OPCODE))
                     && (ur_atom(tval) == ur_atom(rit)) )
                 {
@@ -980 +982 @@
                 {
                     tval = iblk->ptr.cells + pos;
-                    if( ! (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) )
+                    if( ! (ur_is(tval, UT_WORD) ||
+                           ur_is(tval, UT_LITWORD) ||
+                           ur_is(tval, UT_OPCODE)) )
                         break;
                     if( ur_atom(tval) != atom )