gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.15, 2000/09/11 20:56:39	version 1.16, 2000/09/11 21:09:39
Line 28 here ," a block" dup c@ swap 1 + swap	Line 28 here ," a block" dup c@ swap 1 + swap
here ," evaluated string" dup c@ swap 1 + swap	here ," evaluated string" dup c@ swap 1 + swap
here ," the terminal" 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	create image-included-files 4 , A, ( pointer to and count of included files )
\ files ) included-files points to ALLOCATEd space, while	\ included-files points to ALLOCATEd space, while image-included-files
\ image-included-files points to ALLOTed objects, so it survives a	\ points to ALLOTed objects, so it survives a save-system
\ 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