--- gforth/startup.fs 2002/01/17 12:02:55 1.43 +++ gforth/startup.fs 2002/09/14 08:34:03 1.46 @@ -35,6 +35,7 @@ include hash.fs \ require interpretation.fs \ include float.fs \ include search.fs +require compat/strcomp.fs include glocals.fs require stuff.fs include wordinfo.fs @@ -46,7 +47,7 @@ require simp-see.fs include bufio.fs include debug.fs include history.fs -s" os-class" environment? dup [IF] drop s" unix" compare 0= [THEN] +s" os-class" environment? dup [IF] drop s" unix" str= [THEN] [IF] include vt100key.fs [ELSE] @@ -58,13 +59,14 @@ require blocks.fs require intcomp.fs require savesys.fs require table.fs -s" os-class" environment? dup [IF] drop s" unix" compare 0= [THEN] +s" os-class" environment? dup [IF] drop s" unix" str= [THEN] [IF] require ekey.fs [ELSE] require dosekey.fs [THEN] require backtrac.fs +require quotes.fs require code.fs \ define the environmental queries for all the loaded wordsets