Changeset 507 for trunk/thune/mkboot.t

Timestamp:

02/08/08 04:44:24 (10 months ago)

Author:

krobillard

Message:

Removed 'fold (no longer needed with the new 'each).

Files:

• trunk/thune/mkboot.t (modified) (1 diff)

trunk/thune/mkboot.t

@@ -94 +94 @@
 'loop func :each.set    ;(ser words body -- )
 
-[ser accu op] [
-  ser [first accu op do :accu] iter
-  accu
-] 'loop func :fold      ;(ser accu op -- accu)
-
 [ser comb] [
   ser [dup first comb do 1 poke drop] iter