gforth/kernel/basics.fs - diff

Return to basics.fs CVS log

Up to [gforth] / gforth / kernel

version 1.49, 2006/01/22 23:55:39	version 1.50, 2006/02/18 22:58:05
Line 219 has? glocals [IF]	Line 219 has? glocals [IF]
laddr# [ 0 , ] ;	laddr# [ 0 , ] ;
[THEN]	[THEN]

	has? ec [IF]
	: catch execute 0 ;
	: throw cr .error cr quit ;
	[ELSE]
defer catch ( x1 .. xn xt -- y1 .. ym 0 / z1 .. zn error ) \ exception	defer catch ( x1 .. xn xt -- y1 .. ym 0 / z1 .. zn error ) \ exception
\G @code{Executes} @i{xt}. If execution returns normally,	\G @code{Executes} @i{xt}. If execution returns normally,
\G @code{catch} pushes 0 on the stack. If execution returns through	\G @code{catch} pushes 0 on the stack. If execution returns through
Line 243 defer throw ( y1 .. ym nerror -- y1 .. y	Line 247 defer throw ( y1 .. ym nerror -- y1 .. y
[ [ELSE] ] quit [ [THEN] ]	[ [ELSE] ] quit [ [THEN] ]
then ;	then ;
is throw	is throw
	[THEN]

\ (abort")	\ (abort")