Changeset 507 for trunk/thune/boot.c

Show
Ignore:
Timestamp:
02/08/08 04:44:24 (10 months ago)
Author:
krobillard
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/boot.c

    r506 r507  
    8383  "]\n" 
    8484  "'loop func :each.set    ;(ser words body -- )\n" 
    85   "[ser accu op] [\n" 
    86   "  ser [first accu op do :accu] iter\n" 
    87   "  accu\n" 
    88   "] 'loop func :fold      ;(ser accu op -- accu)\n" 
    8985  "[ser comb] [\n" 
    9086  "  ser [dup first comb do 1 poke drop] iter\n"