gforth/kernel/require.fs - diff

Return to require.fs CVS log

Up to [gforth] / gforth / kernel

version 1.9, 1999/12/03 18:49:52	version 1.10, 2000/07/01 07:59:10
Line 124 create image-included-files 1 , A, ( po	Line 124 create image-included-files 1 , A, ( po
string,	string,
needsrcs^ @ ! ;	needsrcs^ @ ! ;

: .modules	: .included ( -- ) \ gforth
	\G list the names of the files that have been @code{included}
cr	cr
needs^ @	needs^ @
BEGIN dup	BEGIN dup
Line 147 create image-included-files 1 , A, ( po	Line 148 create image-included-files 1 , A, ( po
: loadfilename#>str ( n -- adr len )	: loadfilename#>str ( n -- adr len )
included-files 2@ drop swap 2* cells + 2@ ;	included-files 2@ drop swap 2* cells + 2@ ;

: .modules	: .included ( -- ) \ gforth
	\G list the names of the files that have been @code{included}
included-files 2@ 2* cells bounds ?DO	included-files 2@ 2* cells bounds ?DO
cr I 2@ type 2 cells +LOOP ;	cr I 2@ type 2 cells +LOOP ;