From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 25 May 2016 22:09:45 +0000 (-0700)
Subject: runtime/option.scm (library-file?): Search for the .scm file.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~44
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7cb63c56d368cef653c64bac46d18ed41d1a5f99;p=mit-scheme.git

runtime/option.scm (library-file?): Search for the .scm file.

Library-file? is applied to optiondb pathnames with no type, but
system-library-pathname only searches for a matching type.  Add a
"scm" type when searching the path and strip it again when looking for
a loadable.
---

diff --git a/src/runtime/option.scm b/src/runtime/option.scm
index 5f08f7547..295aae639 100644
--- a/src/runtime/option.scm
+++ b/src/runtime/option.scm
@@ -82,7 +82,11 @@ USA.
       (error "Cannot locate a load-option database.")))
 
 (define (library-file? library-internal-path)
-  (confirm-pathname (system-library-pathname library-internal-path #f)))
+  (confirm-pathname
+   (pathname-new-type
+    (system-library-pathname (pathname-default-type library-internal-path "scm")
+			     #f)
+    #f)))
 
 (define (confirm-pathname pathname)
   (and (file-loadable? pathname)