Changeset 323 for trunk/thune/mkboot.t
- Timestamp:
- 12/26/06 22:10:34 (2 years ago)
- Files:
-
- 1 modified
-
trunk/thune/mkboot.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/thune/mkboot.t
r294 r323 37 37 word!/set-word!/get-word!/lit-word! :any-word! 38 38 binary!/string!/block!/paren! :series! 39 ] make : urlan-ops39 ] make :kernel-ops 40 40 } 41 41 :boot-script … … 56 56 read 57 57 dup \"#!\" match ift (eol find) 58 to-block urlan-ops infuse58 to-block kernel-ops infuse 59 59 ] proc :load ;(filename -- block) 60 60 … … 140 140 141 141 [word word!/lit-word! sig block! body block!] [ 142 sig urlan-ops infuse143 body urlan-ops infuse142 sig kernel-ops infuse 143 body kernel-ops infuse 144 144 func word: reader-macros last set 145 145 ] func :macrof
