Changeset 398 for trunk/thune/parse.c

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

  • trunk/thune/parse.c

    r391 r398  
    836836                    goto failed; 
    837837                tval = iblk->ptr.cells + pos; 
    838                 if( (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) 
     838                if( (ur_is(tval, UT_WORD) || 
     839                     ur_is(tval, UT_LITWORD) || 
     840                     ur_is(tval, UT_OPCODE)) 
    839841                    && (ur_atom(tval) == ur_atom(rit)) ) 
    840842                { 
    … …  
    979981                { 
    980982                    tval = iblk->ptr.cells + pos; 
    981                     if( ! (ur_is(tval, UT_WORD) || ur_is(tval, UT_LITWORD)) ) 
     983                    if( ! (ur_is(tval, UT_WORD) || 
     984                           ur_is(tval, UT_LITWORD) || 
     985                           ur_is(tval, UT_OPCODE)) ) 
    982986                        break; 
    983987                    if( ur_atom(tval) != atom )