gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

version 1.18, 1997/03/19 18:27:16	version 1.21, 1997/03/25 23:27:13
Line 1038 G -1 warnings T !	Line 1038 G -1 warnings T !
0C constant #ff ( -- c ) \ gforth	0C constant #ff ( -- c ) \ gforth
0A constant #lf ( -- c ) \ gforth	0A constant #lf ( -- c ) \ gforth

: bell #bell emit ;	: bell ( -- ) \ gforth
	\g makes a beep and flushes the output buffer
	#bell emit
	outfile-id flush-file drop ;
: cr ( -- ) \ core	: cr ( -- ) \ core
\ emit a newline	\ emit a newline
#lf ( sic! ) emit ;	#lf ( sic! ) emit ;
Line 1262 DEFER DOERROR	Line 1265 DEFER DOERROR
;	;

: (DoError) ( throw-code -- )	: (DoError) ( throw-code -- )
	[ has-os [IF] ] outfile-id >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 1283 DEFER DOERROR	Line 1287 DEFER DOERROR
ELSE	ELSE
.error	.error
THEN	THEN
normal-dp dpp ! ;	normal-dp dpp !
	[ has-os [IF] ] r> to outfile-id [ [THEN] ]
	;

' (DoError) IS DoError	' (DoError) IS DoError