Diff for /gforth/kernel/require.fs between versions 1.9 and 1.10

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 ;  
   

Removed from v.1.9  
changed lines
  Added in v.1.10


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