gforth/kernel.fs - diff

Return to kernel.fs CVS log

Up to [gforth] / gforth

version 1.22, 1997/03/27 13:31:02	version 1.24, 1997/04/10 21:32:08
Line 69 NIL AConstant NIL \ gforth	Line 69 NIL AConstant NIL \ gforth
\ Aliases	\ Aliases

' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch	' i Alias r@ ( -- w ; R: w -- w ) \ core r-fetch
\ copy w from the return stack to the data stack	\G copy w from the return stack to the data stack

\ Bit string manipulation 06oct92py	\ Bit string manipulation 06oct92py

Line 1265 DEFER DOERROR	Line 1265 DEFER DOERROR
;	;

: (DoError) ( throw-code -- )	: (DoError) ( throw-code -- )
[ has-os [IF] ] outfile-id >r 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