Changeset 507

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

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

Location:
trunk/thune
Files:
3 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" 

  • trunk/thune/mkboot.t

    r506 r507  
    9494'loop func :each.set    ;(ser words body -- ) 
    9595 
    96 [ser accu op] [ 
    97   ser [first accu op do :accu] iter 
    98   accu 
    99 ] 'loop func :fold      ;(ser accu op -- accu) 
    100  
    10196[ser comb] [ 
    10297  ser [dup first comb do 1 poke drop] iter 

  • trunk/thune/tests/working/helpers.t

    r458 r507  
    2929 
    3030"--- fold ---" print 
    31 [2 5 3] 0 [add] fold . 
    32 ["Thune" "is" "great"] 0 [swap length? add] fold . 
     310 [2 5 3] [add] each . 
     320 ["Thune" "is" "great"] [length? add] each . 
    3333