--- gforth/startup.fs 2005/12/31 15:46:10 1.60 +++ gforth/startup.fs 2006/10/08 11:30:56 1.63 @@ -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