gforth/except.fs - diff

Return to except.fs CVS log

Up to [gforth] / gforth

version 1.7, 2003/03/09 15:16:48	version 1.8, 2003/11/23 22:02:46
Line 47 Defer store-backtrace	Line 47 Defer store-backtrace

: try ( compilation -- orig ; run-time -- ) \ gforth	: try ( compilation -- orig ; run-time -- ) \ gforth
\ !! does not work correctly for gforth-native	\ !! does not work correctly for gforth-native
POSTPONE lit >mark POSTPONE (try) ; immediate compile-only	POSTPONE ahead here >r >mark 1 cs-roll POSTPONE then
	r> POSTPONE literal POSTPONE @ POSTPONE (try) ; immediate compile-only

: (recover) ( -- )	: (recover) ( -- )
\ normal end of try block: restore handler, forget rest	\ normal end of try block: restore handler, forget rest