gforth/except.fs - diff

Return to except.fs CVS log

Up to [gforth] / gforth

version 1.5, 2002/12/05 19:25:23	version 1.7, 2003/03/09 15:16:48
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 81 is catch	Line 81 is catch
[ here forthstart 9 cells + ! ]	[ here forthstart 9 cells + ! ]
store-backtrace	store-backtrace
handler @ ?dup-0=-IF	handler @ ?dup-0=-IF
cr ." uncaught exception: " .error cr	>stderr cr ." uncaught exception: " .error cr
2 (bye)	2 (bye)
quit	\ quit
THEN	THEN
rp!	rp!
r> handler !	r> handler !