Changeset 152 for trunk/thune/tests

Show
Ignore:
Timestamp:
05/14/06 02:10:45 (3 years ago)
Author:
krobillard
Message:

Thune -
'do now dispatches function!, call!, & code!
'as handles all word types.
'index? returns atom if TOS is a word.
Started implementing 'foreach.
true & false are now infused.
Fixed unitialized word.wordBlk and leak in ur_tokenize().

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r103 r152  
    22 
    330 :n 
    4 [n dup . 1 add :n] 
    5 [n 3 lt?] while 
     4[n dup . 1 add :n] [n 3 lt?] while 
    65"done" print 
    76 
    87 
    9 ; (block count -- ) 
    10 [ 
    11     dup zero? ift (drop drop return) 
    12     over do 1 sub recurse 
    13 ] 
    14 proc :loop 
    15  
    1680 :n 
    17 [n dup . 1 add :n] 
    18 10 loop 
     9[n dup . 1 add :n] 10 loop 
    1910"done" print 
    2011