| |
|
| ' (bootmessage) IS bootmessage |
' (bootmessage) IS bootmessage |
| |
|
| |
has? ec 0= [IF] |
| Defer 'cold ( -- ) \ gforth tick-cold |
Defer 'cold ( -- ) \ gforth tick-cold |
| \ hook (deferred word) for things to do right before interpreting the |
\ hook (deferred word) for things to do right before interpreting the |
| \ command-line arguments |
\ command-line arguments |
| ' noop IS 'cold |
' noop IS 'cold |
| |
[THEN] |
| |
|
| AVariable init8 NIL init8 ! |
AVariable init8 NIL init8 ! |
| |
|
| [ [THEN] ] |
[ [THEN] ] |
| [ has? ec 0= [IF] ] |
[ has? ec 0= [IF] ] |
| set-encoding-fixed-width |
set-encoding-fixed-width |
| [ [THEN] ] |
|
| 'cold |
'cold |
| |
[ [THEN] ] |
| init8 chainperform |
init8 chainperform |
| [ has? file [IF] ] |
[ has? file [IF] ] |
| process-args |
process-args |
