gforth/except.fs - diff

Return to except.fs CVS log

Up to [gforth] / gforth

version 1.12, 2006/10/11 19:18:51	version 1.13, 2006/10/13 17:36:07
Line 77 Defer store-backtrace	Line 77 Defer store-backtrace
\ !! explain handler on-stack structure	\ !! explain handler on-stack structure

Variable first-throw	Variable first-throw
: nothrow ( -- ) first-throw on ;	: nothrow ( -- ) \ gforth
	\G Use this (or the standard sequence @code{['] false catch drop})
	\G after a @code{catch} or @code{endtry} that does not rethrow;
	\G this ensures that the next @code{throw} will record a
	\G backtrace.
	first-throw on ;

: (try) ( ahandler -- )	: (try) ( ahandler -- )
first-throw on	first-throw on