gforth/kernal.fs - diff

Return to kernal.fs CVS log

Up to [gforth] / gforth

version 1.52, 1996/02/09 17:34:11	version 1.54, 1996/04/17 16:39:41
Line 453 hex	Line 453 hex

: throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception	: throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
?DUP IF	?DUP IF
[ here 4 cells ! ]	[ here 9 cells ! ]
handler @ rp!	handler @ rp!
r> handler !	r> handler !
r> lp!	r> lp!
Line 961 create s"-buffer /line chars allot	Line 961 create s"-buffer /line chars allot
state @ IF postpone (.") ," align	state @ IF postpone (.") ," align
ELSE [char] " parse type THEN ; immediate	ELSE [char] " parse type THEN ; immediate
: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren	: ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file paren
[char] ) parse 2drop ; immediate	BEGIN
	>in @ [char] ) parse nip >in @ rot - =
	WHILE
	loadfile @ IF
	refill 0= abort" missing ')' in paren comment"
	THEN
	REPEAT ; immediate
: \ ( -- ) \ core-ext backslash	: \ ( -- ) \ core-ext backslash
blk @	blk @
IF	IF