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 5f08f75473d8d4451848b42fd711d96b9bfc2faa..295aae639311d9d9a9779833e5643af0aa6ceb1b 100644 (file)
--- 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)