Changeset 417 for branches/thune/thread_safe/boot.c

Timestamp:

06/22/07 20:53:35 (17 months ago)

Author:

krobillard

Message:

Added ur_seriesMem() & fold helper.

Files:

• branches/thune/thread_safe/boot.c (modified) (1 diff)

branches/thune/thread_safe/boot.c

@@ -92 +92 @@
   "]\n"
   "'loop func :each.set       ; (ser words body -- )\n"
-  "[ser comb]\n"
-  "[\n"
+  "[ser accu op] [\n"
+  "  ser [first accu op do :accu] iter\n"
+  "  accu\n"
+  "] 'loop func :fold      ;(ser accu op -- accu)\n"
+  "[ser comb] [\n"
   "  ser [dup first comb do 1 poke drop] iter\n"
-  "] 'loop func :map     ;(ser comb -- )\n"
+  "] 'loop func :map       ;(ser comb -- )\n"
   "[ser old new | len] [\n"
   "    old length? :len\n"