--- gforth/kernel/require.fs	2000/08/17 12:46:59	1.11
+++ gforth/kernel/require.fs	2000/09/06 08:47:15	1.13
@@ -117,42 +117,45 @@ create image-included-files  1 , A, ( po
     \G @code{include-file} @var{file} only if it is not included already.
     name required ;
 
-0 [IF]
-: \I
-  here 
-  0 word count
-  string,
-  needsrcs^ @ ! ;
-
-: .included ( -- ) \ gforth
-    \G list the names of the files that have been @code{included}
-  cr
-  needs^ @
-  BEGIN		dup 
-  WHILE		dup cell+ count type cr
-		5 spaces
-		dup cell+ count + aligned
-		@ dup IF count type ELSE drop THEN cr
-		@
-  REPEAT
-  drop ;
-
-: loadfilename#>str ( n -- adr len )
-\ this converts the filenumber into the string
-  loadfilenamecount @ swap -
-  needs^ @
-  swap 0 ?DO dup 0= IF LEAVE THEN @ LOOP 
-  dup IF cell+ count ELSE drop s" NOT FOUND" THEN ;
-[THEN]
+\ : \I
+\   here 
+\   0 word count
+\   string,
+\   needsrcs^ @ ! ;
+
+\ : .included ( -- ) \ gforth
+\     \G list the names of the files that have been @code{included}
+\   cr
+\   needs^ @
+\   BEGIN		dup 
+\   WHILE		dup cell+ count type cr
+\ 		5 spaces
+\ 		dup cell+ count + aligned
+\ 		@ dup IF count type ELSE drop THEN cr
+\ 		@
+\   REPEAT
+\   drop ;
+
+\ : loadfilename#>str ( n -- adr len )
+\ \ this converts the filenumber into the string
+\   loadfilenamecount @ swap -
+\   needs^ @
+\   swap 0 ?DO dup 0= IF LEAVE THEN @ LOOP 
+\   dup IF cell+ count ELSE drop s" NOT FOUND" THEN ;
 
 : loadfilename#>str ( n -- adr len )
     included-files 2@ drop swap 2* cells + 2@ ;
 
-: .included ( -- ) \ gforth
-    \G list the names of the files that have been @code{included}
+: .strings ( addr u -- ) \ gforth
+    \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
-	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
-\ \I $Id: require.fs,v 1.11 2000/08/17 12:46:59 anton Exp $
+\ \I $Id: require.fs,v 1.13 2000/09/06 08:47:15 anton Exp $