gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.65, 2001/01/23 10:05:36	version 1.66, 2001/01/23 14:41:54
Line 484 Defer interpreter-notfound ( c-addr coun	Line 484 Defer interpreter-notfound ( c-addr coun
' no.extensions IS compiler-notfound	' no.extensions IS compiler-notfound
' no.extensions IS interpreter-notfound	' no.extensions IS interpreter-notfound

: interpret ( ?? -- ?? ) \ gforth	: interpret1 ( ... -- ... )
\ interpret/compile the (rest of the) input buffer
[ has? backtrace [IF] ]	[ has? backtrace [IF] ]
backtrace-rp0 @ >r
rp@ backtrace-rp0 !	rp@ backtrace-rp0 !
[ [THEN] ]	[ [THEN] ]
BEGIN	BEGIN
Line 495 Defer interpreter-notfound ( c-addr coun	Line 493 Defer interpreter-notfound ( c-addr coun
WHILE	WHILE
parser	parser
REPEAT	REPEAT
2drop	2drop ;

	: interpret ( ?? -- ?? ) \ gforth
	\ interpret/compile the (rest of the) input buffer
[ has? backtrace [IF] ]	[ has? backtrace [IF] ]
r> backtrace-rp0 !	backtrace-rp0 @ >r
[ [THEN] ]	[ [THEN] ]
;	['] interpret1 catch
	[ has? backtrace [IF] ]
	r> backtrace-rp0 !
	[ [THEN] ]
	throw ;

\ interpreter 30apr92py	\ interpreter 30apr92py