Put boot-strings into 'cold

parent 8dc0579f
......@@ -865,13 +865,10 @@ defer process-args
' gforth IS bootmessage
has? os [IF]
Defer 'cold ( -- ) \ gforth tick-cold
\G Hook (deferred word) for things to do right before interpreting the
\G OS command-line arguments. Normally does some initializations that
\G you also want to perform.
:noname default-recognizer $boot ; IS 'cold
[THEN]
: cold ( -- ) \ gforth
[ has? backtrace [IF] ]
......
......@@ -64,7 +64,6 @@ User ofile
User tfile
: os-cold ( -- )
boot-strings
fpath off
ofile off
tfile off
......
......@@ -176,4 +176,5 @@ AVariable boot[][] \ arrays to be booted
Defer 'image ( -- ) \G deferred word executed before saving an image
' save-strings IS 'image
' boot-strings IS 'cold
[THEN]
\ No newline at end of file
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment