From eceb01dd6ac3ed0d49f6f8f64b27dcc2fb9c9430 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Mar 1997 05:23:43 +0000
Subject: [PATCH] Fix bug: info-directory-list should be allowed to contain
 pathnames as well as strings.

---
 v7/src/edwin/info.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index 1ae26e87d..07d44c775 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: info.scm,v 1.123 1997/03/04 06:43:14 cph Exp $
+;;;	$Id: info.scm,v 1.124 1997/03/19 05:23:43 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
@@ -90,13 +90,18 @@ Such selection regions are active only when info-selection-key is set."
 This variable is now obsolete; use info-directory-list instead."
   #f
   string-or-false?)
-
+
 (define-variable info-directory-list
   "List of directories to search for Info documentation files.
 Empty list means not yet initialized.  In this case, the environment
 variable INFOPATH is used to initialize it."
   '()
-  list-of-strings?)
+  (lambda (object)
+    (and (list? object)
+	 (for-all? object
+	   (lambda (object)
+	     (or (pathname? object)
+		 (string? object)))))))
 
 (define-variable info-suffix-list
   "List of file-name suffixes for Info documentation files."
-- 
2.25.1