Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.127, 2006/01/31 15:39:27 | version 1.128, 2006/02/04 19:26:38 |
---|---|
Line 995 AVariable init8 NIL init8 ! | Line 995 AVariable init8 NIL init8 ! |
'cold | 'cold |
init8 chainperform | init8 chainperform |
[ has? file [IF] ] | [ has? file [IF] ] |
s" *the terminal*" loadfilename 2! | s" *this should go away*" loadfilename 2! |
process-args | process-args |
loadline off | loadline off |
[ [THEN] ] | [ [THEN] ] |