--- gforth/kernel/require.fs 1998/06/17 16:55:18 1.4 +++ gforth/kernel/require.fs 1998/12/08 22:03:13 1.5 @@ -1,6 +1,6 @@ \ require.fs -\ Copyright (C) 1995-1997 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -20,8 +20,6 @@ \ Now: Kernel Module, Reloadable -\ $Id: require.fs,v 1.4 1998/06/17 16:55:18 anton Exp $ - create included-files 0 , 0 , ( pointer to and count of included files ) here ," ./the terminal" dup c@ swap 1 + swap , A, here 2 cells - create image-included-files 1 , A, ( pointer to and count of included files ) @@ -145,5 +143,5 @@ create image-included-files 1 , A, ( po cr I 2@ type 2 cells +LOOP ; \ contains tools/newrequire.fs -\ \I $Id: require.fs,v 1.4 1998/06/17 16:55:18 anton Exp $ +\ \I $Id: require.fs,v 1.5 1998/12/08 22:03:13 anton Exp $