--- gforth/startup.fs 2005/03/25 15:53:09 1.59 +++ gforth/startup.fs 2006/10/08 11:30:56 1.63 @@ -1,6 +1,6 @@ \ startup file -\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -24,6 +24,10 @@ require except.fs \ included on command line [THEN] +[IFDEF] throw>error + ' throw>error Alias rethrow +[THEN] + warnings off include search.fs include environ.fs @@ -103,7 +107,10 @@ true constant string true constant string-ext \ extension queries ' noop alias X:deferred +' noop alias X:defined ' noop alias X:extension-query +' noop alias X:parse-name +' noop alias X:required set-current warnings on