Changeset 29 for trunk/thune/boot.c

Show
Ignore:
Timestamp:
02/07/06 21:43:18 (3 years ago)
Author:
krobillard
Message:

Thune - Debugger now break on halt (!).

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/boot.c

    r23 r29  
    2020  "  opcode! 18 'ift     make :ift\n" 
    2121  "  opcode! 19 'iff     make :iff\n" 
    22   "  opcode! 20 'halt    make :halt\n" 
     22  "  opcode! 20 '!       make :!\n" 
    2323  "  opcode! 21 'quit    make :quit\n" 
    2424  "  opcode! 22 'inc     make :inc\n" 
    … …  
    3333  "[block!  swap make] func :to-block\n" 
    3434  "[string! swap make] func :to-string\n" 
     35  "[context! swap make] func :context\n" 
    3536  "[read to-block urlan-ops infuse] func :load\n" 
    3637  "[select do] func :case\n" 
    … …  
    4142  "]\n" 
    4243  "func :while\n" 
    43   "context! [\n" 
     44  "[\n" 
    4445  "  none :version\n" 
    4546  "  none :os\n" 
    4647  "  none :args\n" 
    47   "] make :environs\n" 
     48  "] context :environs\n" 
    4849  "[now swap do now swap sub] func :time-blk\n" 
    4950;