--- gforth/kernel/require.fs 2000/09/11 20:56:39 1.15 +++ gforth/kernel/require.fs 2000/09/11 21:09:39 1.16 @@ -28,10 +28,9 @@ here ," *a block*" dup c@ swap 1 + swap here ," *evaluated string*" dup c@ swap 1 + swap here ," *the terminal*" dup c@ swap 1 + swap , A, , A, , A, , A, here 8 cells - -create image-included-files 4 , A, ( pointer to and count of included -\ files ) included-files points to ALLOCATEd space, while -\ image-included-files points to ALLOTed objects, so it survives a -\ save-system +create image-included-files 4 , A, ( pointer to and count of included files ) +\ included-files points to ALLOCATEd space, while image-included-files +\ points to ALLOTed objects, so it survives a save-system : sourcefilename ( -- c-addr u ) \ gforth \G The name of the source file which is currently the input @@ -157,5 +156,5 @@ create image-included-files 4 , A, ( poi included-files 2@ .strings ; \ contains tools/newrequire.fs -\ \I $Id: require.fs,v 1.15 2000/09/11 20:56:39 anton Exp $ +\ \I $Id: require.fs,v 1.16 2000/09/11 21:09:39 anton Exp $