gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.149, 2006/04/30 17:33:54	version 1.150, 2006/05/01 09:34:36
Line 1027 Defer mark-end	Line 1027 Defer mark-end
cr ." Type `bye' to exit"	cr ." Type `bye' to exit"
[ [THEN] ] ;	[ [THEN] ] ;

defer bootmessage	defer bootmessage \ gforth
	\G Hook (deferred word) executed right after interpreting the OS
	\G command-line arguments. Normally prints the Gforth startup
	\G message.

has? file [IF]	has? file [IF]
defer process-args	defer process-args
[THEN]	[THEN]
Line 1036 defer process-args	Line 1040 defer process-args

has? ec 0= [IF]	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	\G Hook (deferred word) for things to do right before interpreting the
\ command-line arguments	\G OS command-line arguments. Normally does some initializations that
	\G you also want to perform.
' noop IS 'cold	' noop IS 'cold

AVariable init8 NIL init8 !	AVariable init8 NIL init8 !