gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.180, 2011/10/07 21:46:57	version 1.181, 2011/11/11 18:29:10
Line 898 max-errors /error * cells allot	Line 898 max-errors /error * cells allot

: input-error-data ( -- c-addr1 u1 c-addr2 u2 line# [addr u] )	: input-error-data ( -- c-addr1 u1 c-addr2 u2 line# [addr u] )
\ error data for the current input, to be used by >error or .error-frame	\ error data for the current input, to be used by >error or .error-frame
source input-lexeme 2@ sourceline#	source over >r save-mem over r> -
	input-lexeme 2@ >r + r> sourceline#
[ has? file [IF] ] sourcefilename [ [THEN] ] ;	[ has? file [IF] ] sourcefilename [ [THEN] ] ;

: dec. ( n -- ) \ gforth	: dec. ( n -- ) \ gforth