gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.128, 2006/02/04 19:26:38	version 1.129, 2006/02/04 22:09:12
Line 896 Defer mark-end	Line 896 Defer mark-end
\ n2: line number	\ n2: line number
\ n1: error position in input line	\ n1: error position in input line
\ addr1 u1: input line	\ addr1 u1: input line
cr error-stack @	error-stack @
IF ( throwcode addr1 u1 n1 n2 [addr2 u2] )	IF ( throwcode addr1 u1 n1 n2 [addr2 u2] )
[ has? file [IF] ] \ !! unbalanced stack effect	[ has? file [IF] ] \ !! unbalanced stack effect
." in file included from "	over IF
type ." :"	cr ." in file included from "
	type ." :"
	0 dec.r drop 2drop
	ELSE
	2drop 2drop 2drop
	THEN
[ [THEN] ] ( throwcode addr1 u1 n1 n2 )	[ [THEN] ] ( throwcode addr1 u1 n1 n2 )
0 dec.r drop 2drop
ELSE ( throwcode addr1 u1 n1 n2 [addr2 u2] )	ELSE ( throwcode addr1 u1 n1 n2 [addr2 u2] )
[ has? file [IF] ]	[ has? file [IF] ]
type ." :"	cr type ." :"
[ [THEN] ] ( throwcode addr1 u1 n1 n2 )	[ [THEN] ] ( throwcode addr1 u1 n1 n2 )
dup 0 dec.r ." : " 4 pick .error-string	dup 0 dec.r ." : " 4 pick .error-string
IF \ if line# non-zero, there is a line	IF \ if line# non-zero, there is a line
Line 995 AVariable init8 NIL init8 !	Line 999 AVariable init8 NIL init8 !
'cold	'cold
init8 chainperform	init8 chainperform
[ has? file [IF] ]	[ has? file [IF] ]
s" this should go away" loadfilename 2!
process-args	process-args
loadline off	loadline off
[ [THEN] ]	[ [THEN] ]