gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.150, 2006/05/01 09:34:36	version 1.151, 2006/05/01 09:45:56
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
[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 1044 Defer 'cold ( -- ) \ gforth tick-cold	Line 1041 Defer 'cold ( -- ) \ gforth tick-cold
\G OS command-line arguments. Normally does some initializations that	\G OS command-line arguments. Normally does some initializations that
\G you also want to perform.	\G you also want to perform.
' noop IS 'cold	' noop IS 'cold

AVariable init8 NIL init8 !
[THEN]	[THEN]

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