gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.55, 2000/08/18 08:56:33	version 1.56, 2000/09/06 20:30:07
Line 594 has? file 0= [IF]	Line 594 has? file 0= [IF]
\G @code{0} and make the string @i{c-addr u} the input source	\G @code{0} and make the string @i{c-addr u} the input source
\G and input buffer. Interpret. When the parse area is empty,	\G and input buffer. Interpret. When the parse area is empty,
\G restore the input source specification.	\G restore the input source specification.
	loadfilename# @ >r
	1 loadfilename# ! \ "\evaluated string/"
push-file #tib ! >tib !	push-file #tib ! >tib !
>in off	>in off
[ has? file [IF] ]	[ has? file [IF] ]
blk off loadfile off -1 loadline !	blk off loadfile off -1 loadline !
[ [THEN] ]	[ [THEN] ]
['] interpret catch	['] interpret catch
pop-file throw ;	pop-file
	r> loadfilename# !
	throw ;

\ \ Quit 13feb93py	\ \ Quit 13feb93py

Line 707 Defer dobacktrace ( -- )	Line 711 Defer dobacktrace ( -- )
>stderr	>stderr
[ [THEN] ]	[ [THEN] ]
sourceline# IF	sourceline# IF
source >in @ sourceline# 0 0 .error-frame	source >in @ sourceline# sourcefilename .error-frame
THEN	THEN
error-stack @ 0 ?DO	error-stack @ 0 ?DO
-1 error-stack +!	-1 error-stack +!
Line 777 Variable init8	Line 781 Variable init8
[ has? file [IF] ]	[ has? file [IF] ]
process-args	process-args
loadline off	loadline off
	loadfilename# off
[ [THEN] ]	[ [THEN] ]
bootmessage	bootmessage
quit ;	quit ;