From 7cb63c56d368cef653c64bac46d18ed41d1a5f99 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 25 May 2016 15:09:45 -0700 Subject: [PATCH] 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. --- src/runtime/option.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- 2.25.1