gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.134, 2006/02/12 23:45:55	version 1.135, 2006/02/18 22:58:05
Line 990 Defer mark-end	Line 990 Defer mark-end
[ [THEN] ] ;	[ [THEN] ] ;

defer bootmessage	defer bootmessage
	has? file [IF]
defer process-args	defer process-args
	[THEN]

' (bootmessage) IS bootmessage	' (bootmessage) IS bootmessage

Line 1003 Defer 'cold ( -- ) \ gforth tick-cold	Line 1005 Defer 'cold ( -- ) \ gforth tick-cold
AVariable init8 NIL init8 !	AVariable init8 NIL init8 !

: cold ( -- ) \ gforth	: cold ( -- ) \ gforth
[ has? backtrace [IF] ]	[ has? backtrace [IF] ]
rp@ backtrace-rp0 !	rp@ backtrace-rp0 !
[ [THEN] ]	[ [THEN] ]
[ has? file [IF] ]	[ has? file [IF] ]