Changeset 262 for trunk/thune/eval.c

Timestamp:

08/30/06 03:32:14 (2 years ago)

Author:

krobillard

Message:

Thune - Added if/keep. 'Case uses this so unhandled cases don't leave 'none on the stack.

Files:

• trunk/thune/eval.c (modified) (1 diff)

trunk/thune/eval.c

@@ -859 +859 @@
                             break;
 
+                        case UR_ATOM_KEEP:  // (val -- [val])
+                            UR_S_GROW;
+                            val = UR_TOS;
+                            if( ur_is(val, UT_NONE) ||
+                                (ur_is(val, UT_LOGIC) && ! ur_logic(val)) )
+                                goto if_skip;
+                            goto execute;
+
                         //case UR_ATOM_ZERO:
                         //    break;