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