--- gforth/startup.fs 2007/12/31 18:40:24 1.69 +++ gforth/startup.fs 2012/06/27 20:49:34 1.82 @@ -1,6 +1,6 @@ \ startup file -\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -42,7 +42,11 @@ include hash.fs \ include float.fs \ include search.fs require compat/strcomp.fs -include glocals.fs +' usable-dictionary-end @ dodefer: = [if] + include glocals.fs +[else] + include glocals-1.60.fs +[then] require float.fs require stuff.fs include wordinfo.fs @@ -70,15 +74,19 @@ require ekey.fs require dosekey.fs [THEN] require quotes.fs +require quotedstring.fs +require parsedto.fs +require code.fs require see.fs require see-ext.fs require backtrac.fs require simp-see.fs require debug.fs -require code.fs require dis-gdb.fs require libcc.fs require struct0x.fs +require prelude.fs +require str-exec.fs \ define the environmental queries for all the loaded wordsets \ since the blocks wordset is loaded in a single file, its queries @@ -111,9 +119,13 @@ true constant string-ext ' noop alias X:defined ' noop alias X:ekeys ' noop alias X:extension-query +' noop alias X:fp-stack +' noop alias X:ftrunc +' noop alias X:number-prefixes ' noop alias X:parse-name ' noop alias X:required ' noop alias X:structures +' noop alias X:xchar set-current warnings on