gforth/except.fs - diff

Return to except.fs CVS log

Up to [gforth] / gforth

version 1.6, 2003/02/17 22:42:09	version 1.8, 2003/11/23 22:02:46
Line 1	Line 1
\ catch, throw, etc.	\ catch, throw, etc.

\ Copyright (C) 1999,2000 Free Software Foundation, Inc.	\ Copyright (C) 1999,2000,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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