Changeset 503 for trunk/thune/mkboot.t

Show
Ignore:
Timestamp:
01/21/08 16:21:29 (10 months ago)
Author:
krobillard
Message:

Iter/each can now take skip value on stack. Each.set works again.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/mkboot.t

    r502 r503  
    8686] 'loop func :loop.to 
    8787 
     88[ser words block! body block!] 
     89[ 
     90    ser [words set body do] words length? iter 
     91] 
     92'loop func :each.set    ;(ser words body -- ) 
     93 
    8894[ser accu op] [ 
    8995  ser [first accu op do :accu] iter