guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 01/04: Accept .sld as scheme extensions in r7rs


From: Ludovic Courtès
Subject: [Guile-commits] 01/04: Accept .sld as scheme extensions in r7rs
Date: Sat, 7 Mar 2020 10:57:45 -0500 (EST)

civodul pushed a commit to branch master
in repository guile.

commit cefbfac520e8552ae61207fde14a3fd5df87114b
Author: Nguyá»…n Thái Ngá»c Duy <address@hidden>
AuthorDate: Sat Feb 15 06:46:07 2020 +0700

    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 <address@hidden>
---
 module/ice-9/boot-9.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 004d139..0d37f3d 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))
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]