--- gforth/startup.fs 2006/01/28 17:55:32 1.61 +++ 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,9 +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:defined +' noop alias X:required set-current warnings on