gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/int.fs between versions 1.155 and 1.156

version 1.155, 2007/03/12 20:11:55	version 1.156, 2007/03/18 21:46:17
Line 817 has? new-input 0= [IF]	Line 817 has? new-input 0= [IF]

Defer 'quit	Defer 'quit

has? ec 0= [IF]	has? os [IF]
Defer .status	Defer .status
[THEN]	[THEN]

Line 842 Defer .status	Line 842 Defer .status

\ \ DOERROR (DOERROR) 13jun93jaw	\ \ DOERROR (DOERROR) 13jun93jaw

has? ec 0= [IF]	has? os [IF]
8 Constant max-errors	8 Constant max-errors
5 has? file 2 and + Constant /error	5 has? file 2 and + Constant /error
Variable error-stack 0 error-stack !	Variable error-stack 0 error-stack !
Line 1035 defer process-args	Line 1035 defer process-args

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

has? ec 0= [IF]	has? os [IF]
Defer 'cold ( -- ) \ gforth tick-cold	Defer 'cold ( -- ) \ gforth tick-cold
\G Hook (deferred word) for things to do right before interpreting the	\G Hook (deferred word) for things to do right before interpreting the
\G OS command-line arguments. Normally does some initializations that	\G OS command-line arguments. Normally does some initializations that
Line 1050 Defer 'cold ( -- ) \ gforth tick-cold	Line 1050 Defer 'cold ( -- ) \ gforth tick-cold
[ has? file [IF] ]	[ has? file [IF] ]
os-cold	os-cold
[ [THEN] ]	[ [THEN] ]
[ has? ec 0= [IF] ]	[ has? os [IF] ]
set-encoding-fixed-width	set-encoding-fixed-width
'cold	'cold
[ [THEN] ]	[ [THEN] ]
Line 1102 has? new-input 0= [IF]	Line 1102 has? new-input 0= [IF]
[ has? floating [IF] ]	[ has? floating [IF] ]
fp@ fp0 !	fp@ fp0 !
[ [THEN] ]	[ [THEN] ]
[ has? ec 0= [IF] ]	[ has? os [IF] ]
handler off	handler off
['] cold catch dup -&2049 <> if \ broken pipe?	['] cold catch dup -&2049 <> if \ broken pipe?
DoError cr	DoError cr

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.155
changed lines
	Added in v.1.156