gforth/except.fs - diff

Return to except.fs CVS log

Up to [gforth] / gforth

version 1.22, 2010/08/31 20:10:59	version 1.23, 2010/09/01 16:52:12
Line 168 Variable first-throw	Line 168 Variable first-throw
then endtry ;	then endtry ;
is catch	is catch

	[undefined] (throw1)
	: (throw1) ( ... ball frame -- ... ball )
	dup rp! ( ... ball frame )
	cell+ dup @ lp!
	cell+ dup @ fp!
	cell+ dup @ ( ... ball addr sp ) -rot 2>r sp! drop 2r>
	cell+ @ perform ;
	[endif]

:noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception	:noname ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
?DUP IF	?DUP IF
[ here forthstart 9 cells + ! ]	[ here forthstart 9 cells + ! ]
Line 180 is catch	Line 189 is catch
2 (bye)	2 (bye)
\ quit	\ quit
THEN	THEN
dup rp! ( ... ball frame )	\ cr .s dup 64 dump
cell+ dup @ lp!	(throw1)
cell+ dup @ fp!
cell+ dup @ ( ... ball addr sp ) -rot 2>r sp! drop 2r>
cell+ @ perform
THEN ;	THEN ;
is throw	is throw