Diff for /gforth/kernel/require.fs between versions 1.14 and 1.15

version 1.14, 2000/09/06 20:30:07 version 1.15, 2000/09/11 20:56:39
Line 21 Line 21
 \ Now: Kernel Module, Reloadable  \ Now: Kernel Module, Reloadable
   
 create included-files 0 , 0 , ( pointer to and count of included files )  create included-files 0 , 0 , ( pointer to and count of included files )
 here ," \a file/" dup c@ swap 1 + swap  \ note: these names must not contain a "/" or "\"; otherwise a part of
 here ," \a block/" dup c@ swap 1 + swap  \ that name might be used when expanding "./" (see expandtopic).
 here ," \evaluated string/" dup c@ swap 1 + swap  here ," *a file*" dup c@ swap 1 + swap
 here ," \the terminal/" dup c@ swap 1 + swap  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 -  , A, , A, , A, , A, here 8 cells -
 create image-included-files 4 , A, ( pointer to and count of included files )  create image-included-files 4 , A, ( pointer to and count of included
 \ included-files points to ALLOCATEd space, while image-included-files  \ files ) included-files points to ALLOCATEd space, while
 \ points to ALLOTed objects, so it survives a save-system  \ image-included-files points to ALLOTed objects, so it survives a
   \ save-system
   
 : sourcefilename ( -- c-addr u ) \ gforth  : sourcefilename ( -- c-addr u ) \ gforth
     \G The name of the source file which is currently the input      \G The name of the source file which is currently the input

Removed from v.1.14  
changed lines
  Added in v.1.15


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>