Changeset 398 for branches/thune

Show
Ignore:
Timestamp:
05/22/07 20:53:15 (18 months ago)
Author:
krobillard
Message:

Thune - parse lit-word now matches opcodes.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/thune/thread_safe/parse.c

    r392 r398  
    835835                    goto failed; 
    836836                tval = iblk->ptr.cells + pos; 
    837                 if( (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) 
     837                if( (ur_is(tval, UT_WORD) || 
     838                     ur_is(tval, UT_LITWORD) || 
     839                     ur_is(tval, UT_OPCODE)) 
    838840                    && (ur_atom(tval) == ur_atom(rit)) ) 
    839841                { 
    … …  
    980982                { 
    981983                    tval = iblk->ptr.cells + pos; 
    982                     if( ! (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) ) 
     984                    if( ! (ur_is(tval, UT_WORD) || 
     985                           ur_is(tval, UT_LITWORD) || 
     986                           ur_is(tval, UT_OPCODE)) ) 
    983987                        break; 
    984988                    if( ur_atom(tval) != atom )