--- gforth/startup.fs 1995/09/06 21:00:29 1.11 +++ gforth/startup.fs 1996/05/23 15:13:12 1.18 @@ -1,7 +1,26 @@ \ startup file +\ Copyright (C) 1995 Free Software Foundation, Inc. + +\ This file is part of Gforth. + +\ Gforth is free software; you can redistribute it and/or +\ modify it under the terms of the GNU General Public License +\ as published by the Free Software Foundation; either version 2 +\ of the License, or (at your option) any later version. + +\ This program is distributed in the hope that it will be useful, +\ but WITHOUT ANY WARRANTY; without even the implied warranty of +\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +\ GNU General Public License for more details. + +\ You should have received a copy of the GNU General Public License +\ along with this program; if not, write to the Free Software +\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + warnings off +require interpretation.fs \ include float.fs \ include search-order.fs include glocals.fs @@ -13,15 +32,14 @@ include vt100.fs include see.fs include bufio.fs include debug.fs +require stuff.fs include history.fs \ include doskey.fs include vt100key.fs require debugging.fs require assert.fs require blocks.fs - -0 Value $? -: sh '# parse cr system to $? ; +require dumpimage.fs \ define the environmental queries for all the loaded wordsets \ since the blocks wordset is loaded in a single file, its queries @@ -54,3 +72,5 @@ set-current warnings on + +require site-init.fs