gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.147, 2006/04/10 09:24:51	version 1.148, 2006/04/30 12:12:57
Line 29 require ./io.fs \ type ...	Line 29 require ./io.fs \ type ...
require ./nio.fs \ . <# ...	require ./nio.fs \ . <# ...
require ./errore.fs \ .error ...	require ./errore.fs \ .error ...
require kernel/version.fs \ version-string	require kernel/version.fs \ version-string
	has? ec 0= [IF]
require ./../chains.fs	require ./../chains.fs
	[THEN]

has? new-input 0= [IF]	has? new-input 0= [IF]
: tib ( -- c-addr ) \ core-ext t-i-b	: tib ( -- c-addr ) \ core-ext t-i-b
Line 1034 Defer 'cold ( -- ) \ gforth tick-cold	Line 1036 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]

: cold ( -- ) \ gforth	: cold ( -- ) \ gforth
[ has? backtrace [IF] ]	[ has? backtrace [IF] ]
Line 1048 AVariable init8 NIL init8 !	Line 1050 AVariable init8 NIL init8 !
[ has? ec 0= [IF] ]	[ has? ec 0= [IF] ]
set-encoding-fixed-width	set-encoding-fixed-width
'cold	'cold
[ [THEN] ]
init8 chainperform	init8 chainperform
	[ [THEN] ]
[ has? file [IF] ]	[ has? file [IF] ]
process-args	process-args
loadline off	loadline off