Changeset 503 for trunk/thune/boot.c

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/boot.c

    r502 r503  
    7676  "  forever drop\n" 
    7777  "] 'loop func :loop.to\n" 
     78  "[ser words block! body block!]\n" 
     79  "[\n" 
     80  "    ser [words set body do] words length? iter\n" 
     81  "]\n" 
     82  "'loop func :each.set    ;(ser words body -- )\n" 
    7883  "[ser accu op] [\n" 
    7984  "  ser [first accu op do :accu] iter\n"