Changeset 506 for trunk/thune/mkboot.t

Show
Ignore:
Timestamp:
02/08/08 04:14:39 (10 months ago)
Author:
krobillard
Message:

Changed if/keep to if-some. Added or-else.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/mkboot.t

    r503 r506  
    2525  opcode! 19 'try     make :try 
    2626  opcode! 20 'ift     make :ift 
    27   opcode! 21 'iff     make :iff 
    28   opcode! 22 'if      make :if 
    29   opcode! 23 'halt    make :halt 
    30   opcode! 24 'quit    make :quit 
    31   opcode! 25 'inc     make :inc 
    32   opcode! 26 'dec     make :dec 
    33   opcode! 27 '++      make :++ 
    34   opcode! 28 '--      make :-- 
    35   opcode! 29 'verify  make :verify 
    36   opcode! 30 'forever make :forever 
     27  opcode! 21 'if-some make :if-some 
     28  opcode! 22 'iff     make :iff 
     29  opcode! 23 'or-else make :or-else 
     30  opcode! 24 'if      make :if 
     31  opcode! 25 'halt    make :halt 
     32  opcode! 26 'quit    make :quit 
     33  opcode! 27 'inc     make :inc 
     34  opcode! 28 'dec     make :dec 
     35  opcode! 29 '++      make :++ 
     36  opcode! 30 '--      make :-- 
     37  opcode! 31 'verify  make :verify 
     38  opcode! 32 'forever make :forever 
    3739 
    3840  int!/decimal! :number! 
    … …  
    6163] proc :load    ;(filename -- block) 
    6264 
    63 [select if/keep do] proc :case 
     65[select if-some do] proc :case 
    6466 
    6567['break throw] proc :break 
    … …  
    104106[ser old new | len] [ 
    105107    old length? :len 
    106     ser old find if/keep (new len change :ser recurse) 
     108    ser old find if-some (new len change :ser recurse) 
    107109    ser 
    108110] func :replace.all     ;(ser old new -- ser)