Changeset 28

Timestamp:

02/07/06 17:53:22 (3 years ago)

Author:

krobillard

Message:

Thune - Added reduce.

Location:

trunk/thune

Files:

• eval.c (modified) (2 diffs)
• tests/working/99.t (modified) (1 diff)

trunk/thune/eval.c

@@ -299 +299 @@
             }
         }
+    }
+    // else leave tos unchanged...
+}
+
+
+// (value -- [result])
+static void uc_reduce( UCell* tos )
+{
+#if 0
+    if( ur_is(tos, UT_BLOCK) )
+    {
+    }
+    else
+#endif
+    if( ur_is(tos, UT_PAREN) )
+    {
+        UR_CALL_OP = OP_DO;
+    }
+    else if( ur_is(tos, UT_WORD) )
+    {
+        UBlock* blk;
+        UCell* val;
+
+        ur_wordCell( tos, blk, val );
+        ur_copy(tos, *val );
     }
     // else leave tos unchanged...
@@ -1256 +1281 @@
 {
     { uc_do,           "do" },
+    { uc_reduce,       "reduce" },
     { uc_set,          "set" },
     { uc_get,          "get" },

trunk/thune/tests/working/99.t

@@ -4 +4 @@
 
 [
-  [first dup string! is-type? iff do prin]
+  [first reduce prin]
   [
     "^/" n " bottles of beer on the wall, " n " bottles of beer.^/"