From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 19 Mar 1997 05:23:43 +0000 (+0000)
Subject: Fix bug: info-directory-list should be allowed to contain pathnames as
X-Git-Tag: 20090517-FFI~5234
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eceb01dd6ac3ed0d49f6f8f64b27dcc2fb9c9430;p=mit-scheme.git

Fix bug: info-directory-list should be allowed to contain pathnames as
well as strings.
---

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."