Changeset 180 for trunk/thune/scripts

Show
Ignore:
Timestamp:
06/10/06 03:12:25 (3 years ago)
Author:
krobillard
Message:

Thune - Added 'each function.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/scripts/opcode_ratio.t

    r179 r180  
    1111    dup length? total add :total  
    1212    [ 
    13         first dup type?.word [ 
     13        dup type?.word [ 
    1414            block!  [calc-ratio] 
    1515            paren!  [calc-ratio] 
    1616            word!   [drop words inc :words] 
    17             opcode! [stack-ops swap find 
    18                         [ops inc :ops] 
    19                         [words inc :words] either 
     17            opcode! [stack-ops swap find ift (ops inc :ops) 
     18                     words inc :words 
    2019                    ] 
    2120            [drop] 
    2221        ] case 
    23     ] iter 
     22    ] each 
    2423] 
    2524proc :calc-ratio  ; (block -- ) 
    2625 
    2726args [ 
    28     first load calc-ratio 
     27    load calc-ratio 
    2928    files inc :files 
    30 ] iter 
     29] each 
    3130 
    3231[