Diff for /gforth/kernel/require.fs between versions 1.12 and 1.13

version 1.12, 2000/08/26 13:29:49 version 1.13, 2000/09/06 08:47:15
Line 146  create image-included-files  1 , A, ( po Line 146  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@ ;
   
 : .included ( -- ) \ gforth  : .strings ( addr u -- ) \ gforth
     \G list the names of the files that have been @code{included}      \G list the strings from an array of string descriptors at addr
       \G with u entries, one per line.
     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 ;
   
   : .included ( -- ) \ gforth
       \G list the names of the files that have been @code{included}
       included-files 2@ .strings ;
       
 \ contains tools/newrequire.fs  \ contains tools/newrequire.fs
 \ \I $Id$  \ \I $Id$
   

Removed from v.1.12  
changed lines
  Added in v.1.13


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