Changeset 506 for trunk/thune/boot.c

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

    r503 r506  
    2424  "  opcode! 19 'try     make :try\n" 
    2525  "  opcode! 20 'ift     make :ift\n" 
    26   "  opcode! 21 'iff     make :iff\n" 
    27   "  opcode! 22 'if      make :if\n" 
    28   "  opcode! 23 'halt    make :halt\n" 
    29   "  opcode! 24 'quit    make :quit\n" 
    30   "  opcode! 25 'inc     make :inc\n" 
    31   "  opcode! 26 'dec     make :dec\n" 
    32   "  opcode! 27 '++      make :++\n" 
    33   "  opcode! 28 '--      make :--\n" 
    34   "  opcode! 29 'verify  make :verify\n" 
    35   "  opcode! 30 'forever make :forever\n" 
     26  "  opcode! 21 'if-some make :if-some\n" 
     27  "  opcode! 22 'iff     make :iff\n" 
     28  "  opcode! 23 'or-else make :or-else\n" 
     29  "  opcode! 24 'if      make :if\n" 
     30  "  opcode! 25 'halt    make :halt\n" 
     31  "  opcode! 26 'quit    make :quit\n" 
     32  "  opcode! 27 'inc     make :inc\n" 
     33  "  opcode! 28 'dec     make :dec\n" 
     34  "  opcode! 29 '++      make :++\n" 
     35  "  opcode! 30 '--      make :--\n" 
     36  "  opcode! 31 'verify  make :verify\n" 
     37  "  opcode! 32 'forever make :forever\n" 
    3638  "  int!/decimal! :number!\n" 
    3739  "  word!/set-word!/get-word!/lit-word! :any-word!\n" 
    … …  
    5658  "  to-block kernel-ops infuse\n" 
    5759  "] proc :load    ;(filename -- block)\n" 
    58   "[select if/keep do] proc :case\n" 
     60  "[select if-some do] proc :case\n" 
    5961  "['break throw] proc :break\n" 
    6062  "[\n" 
    … …  
    9092  "[ser old new | len] [\n" 
    9193  "    old length? :len\n" 
    92   "    ser old find if/keep (new len change :ser recurse)\n" 
     94  "    ser old find if-some (new len change :ser recurse)\n" 
    9395  "    ser\n" 
    9496  "] func :replace.all     ;(ser old new -- ser)\n"