Changeset 179 for trunk/thune/eval.c

Timestamp:

06/10/06 02:17:23 (3 years ago)

Author:

krobillard

Message:

Thune - Added 'either.

Files:

• trunk/thune/eval.c (modified) (2 diffs)

trunk/thune/eval.c

@@ -377 +377 @@
         // default: leave tos unchanged...
     }
+}
+
+
+// (val do-true do-false -- )
+UR_CALL( uc_either )
+{
+    UCell* res = ur_s_backN(tos, 2);
+
+    if( ur_is(res, UT_NONE) ||
+        (ur_is(res, UT_LOGIC) && ! ur_logic(res)) )
+    {
+        ur_copyCell( res, *tos );
+    }
+    else
+    {
+        ur_copyCell( res, *(ur_s_prev(tos)) );
+    }
+
+    UR_S_DROPN(2);
+    uc_do( ur_thread, res );
 }
 
@@ -2119 +2139 @@
     { uc_typeQ,        "type?" },
     { uc_typeQ_word,   "type?.word" },
+    { uc_either,       "either" },
     { uc_to_text,      "to-text" },
     { uc_console_out,  "console.out" },