Changeset 282 for trunk/thune/eval.c
- Timestamp:
- 09/24/06 04:43:27 (2 years ago)
- Files:
-
- 1 modified
-
trunk/thune/eval.c (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/thune/eval.c
r276 r282 1706 1706 1707 1707 // (val -- logic) 1708 UR_CALL( uc_zero )1708 UR_CALL( uc_zeroQ ) 1709 1709 { 1710 1710 int n; … … 2166 2166 while( it != end ) 2167 2167 { 2168 if( ur_is(it, UT_WORD) )2168 if( ur_is(it, UT_WORD) || ur_is(it, UT_OPCODE) ) 2169 2169 { 2170 2170 int wrdN = ur_lookup( cc, it->word.atom ); … … 2411 2411 2412 2412 // (sig body ['loop] -- func) 2413 #ifdef LANG_RUNE 2414 UR_CALL_PUB( uc_func ) 2415 #else 2413 2416 UR_CALL( uc_func ) 2417 #endif 2414 2418 { 2415 2419 UIndex bodN; … … 2601 2605 { uc_equal, "eq?" }, 2602 2606 { uc_sameQ, "same?" }, 2603 { uc_zero ,"zero?" },2607 { uc_zeroQ, "zero?" }, 2604 2608 { uc_typeQ, "type?" }, 2605 2609 { uc_typeQ_word, "type?.word" },
