Changeset 323 for trunk/thune/boot.c
- Timestamp:
- 12/26/06 22:10:34 (2 years ago)
- Files:
-
- 1 modified
-
trunk/thune/boot.c (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/thune/boot.c
r294 r323 35 35 " word!/set-word!/get-word!/lit-word! :any-word!\n" 36 36 " binary!/string!/block!/paren! :series!\n" 37 "] make : urlan-ops\n"37 "] make :kernel-ops\n" 38 38 ; 39 39 … … 51 51 " read\n" 52 52 " dup \"#!\" match ift (eol find)\n" 53 " to-block urlan-ops infuse\n"53 " to-block kernel-ops infuse\n" 54 54 "] proc :load ;(filename -- block)\n" 55 55 "[select if/keep do] proc :case\n" … … 122 122 " ] func :macro\n" 123 123 " [word word!/lit-word! sig block! body block!] [\n" 124 " sig urlan-ops infuse\n"125 " body urlan-ops infuse\n"124 " sig kernel-ops infuse\n" 125 " body kernel-ops infuse\n" 126 126 " func word: reader-macros last set\n" 127 127 " ] func :macrof\n"
