Show
Ignore:
Timestamp:
06/22/07 20:53:35 (17 months ago)
Author:
krobillard
Message:

Added ur_seriesMem() & fold helper.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/thune/thread_safe/mkboot.t

    r414 r417  
    105105'loop func :each.set       ; (ser words body -- ) 
    106106 
    107 [ser comb] 
    108 [ 
     107[ser accu op] [ 
     108  ser [first accu op do :accu] iter 
     109  accu 
     110] 'loop func :fold      ;(ser accu op -- accu) 
     111 
     112[ser comb] [ 
    109113  ser [dup first comb do 1 poke drop] iter 
    110 ] 'loop func :map     ;(ser comb -- ) 
     114] 'loop func :map       ;(ser comb -- ) 
    111115 
    112116