gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

version 1.20, 1997/03/21 12:21:13	version 1.23, 1997/03/28 14:06:23
Line 1265 DEFER DOERROR	Line 1265 DEFER DOERROR
;	;

: (DoError) ( throw-code -- )	: (DoError) ( throw-code -- )
[ has-os [IF] ] stderr to outfile-id [ [THEN] ]	[ has-os [IF] ]
	outfile-id dup flush-file drop >r
	stderr to outfile-id
	[ [THEN] ]
sourceline# IF	sourceline# IF
source >in @ sourceline# 0 0 .error-frame	source >in @ sourceline# 0 0 .error-frame
THEN	THEN
Line 1288 DEFER DOERROR	Line 1291 DEFER DOERROR
.error	.error
THEN	THEN
normal-dp dpp !	normal-dp dpp !
[ has-os [IF] ] stdout to outfile-id [ [THEN] ]	[ has-os [IF] ] r> to outfile-id [ [THEN] ]
;	;

' (DoError) IS DoError	' (DoError) IS DoError
Line 1320 Defer 'cold ( -- ) \ gforth tick-cold	Line 1323 Defer 'cold ( -- ) \ gforth tick-cold
[ [THEN] ]	[ [THEN] ]
'cold	'cold
[ has-files [IF] ]	[ has-files [IF] ]
argc @ 1 >	['] process-args catch ?dup
IF	IF
['] process-args catch ?dup	dup >r DoError cr r> negate (bye)
IF	THEN
dup >r DoError cr r> negate (bye)	argc @ 1 >
THEN	IF \ there may be some unfinished line, so let's finish it
cr	cr
THEN	THEN
[ [THEN] ]	[ [THEN] ]