--- gforth/wf.fs 2006/10/08 11:30:56 1.48 +++ gforth/wf.fs 2006/12/31 13:39:14 1.50 @@ -1,6 +1,6 @@ \ wiki forth -\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc. +\ Copyright (C) 2003,2004,2005,2006 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -331,7 +331,7 @@ s" Gforth" environment? [IF] s" 0.5.0" s [ELSE] : parse-string ( addr u -- ) evaluate-input cell new-tib #tib ! tib ! - ['] parse-line catch pop-file rethrow ; + ['] parse-line catch pop-file throw ; [THEN] [THEN] Variable expand-link