[PATCH] Add ".guile.sls" and ".sls" to the default %load-extensions

[Mark H Weaver]

Hello all,

Any objections to adding ".guile.sls" and ".sls" to Guile's default
%load-extensions?  Ian Price tells me that this naming convention is
commonly followed for R6RS libraries and implementations, e.g. Racket,
Mosh, Ikarus, and Ypsilon.  It would facilitate easy use of R6RS
libraries without having to rename the files.  I'm inclined to go along.

What do you think?

    Mark


>From fb87359d058e0810158019cbd958f60fcabcb9bd Mon Sep 17 00:00:00 2001
From: Mark H Weaver <address@hidden>
Date: Sat, 3 Nov 2012 23:11:46 -0400
Subject: [PATCH] Add ".guile.sls" and ".sls" to the default %load-extensions.

* libguile/load.c (scm_init_load): Add ".guile.sls" and ".sls" to
  the default %load-extensions.
---
 libguile/load.c |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/load.c b/libguile/load.c
index af2ca45..1a03a87 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -1031,7 +1031,9 @@ scm_init_load ()
   scm_loc_load_path = SCM_VARIABLE_LOC (scm_c_define ("%load-path", SCM_EOL));
   scm_loc_load_extensions
     = SCM_VARIABLE_LOC (scm_c_define ("%load-extensions",
-                                     scm_list_2 (scm_from_locale_string 
(".scm"),
+                                     scm_list_4 (scm_from_locale_string 
(".scm"),
+                                                 scm_from_locale_string 
(".guile.sls"),
+                                                 scm_from_locale_string 
(".sls"),
                                                  scm_nullstr)));
   scm_loc_load_compiled_path
     = SCM_VARIABLE_LOC (scm_c_define ("%load-compiled-path", SCM_EOL));
-- 
1.7.10.4