summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNguyễn Thái Ngọc Duy <pclouds@gmail.com>2020-02-15 06:46:07 +0700
committerLudovic Courtès <ludo@gnu.org>2020-03-07 16:14:23 +0100
commitcefbfac520e8552ae61207fde14a3fd5df87114b (patch)
treecfc9f46a4bcfa09d363042296364b604879099a4
parentcacf690d914d8e215939d2fa40ca3e8264ba1cfb (diff)
downloadguile-cefbfac520e8552ae61207fde14a3fd5df87114b.tar.gz
Accept .sld as scheme extensions in r7rs
This is similar to 0bb980f12 (New function: install-r6rs!, 2019-09-25) which accepts .sls extension for r6rs. In r7rs, most portable libraries use .sld. * module/ice-9/boot-9.scm (install-r7rs!): Update %load-extensions. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--module/ice-9/boot-9.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 004d13937..0d37f3d48 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -4597,6 +4597,9 @@ R6RS. @xref{R6RS Incompatibilities} in the manual."
"Make changes to the default environment to better conform to the
R7RS."
(install-r6rs!)
+ (set! %load-extensions
+ (cons* ".guile.sld" ".sld"
+ (delete ".guile.sld" (delete ".sld" (delete ".guile.sls" (delete ".sls" %load-extensions))))))
(read-enable 'r7rs-symbols))