gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.135, 2006/02/18 22:58:05	version 1.136, 2006/02/19 17:27:13
Line 996 defer process-args	Line 996 defer process-args

' (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 !

Line 1013 AVariable init8 NIL init8 !	Line 1014 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