[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-66-gacc1d8e

[Mark H Weaver]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=acc1d8e37a6e0e497dae88db276741928afbc901

The branch, stable-2.0 has been updated
       via  acc1d8e37a6e0e497dae88db276741928afbc901 (commit)
      from  134c95f1e6a574d30881cf3ccaffba5e3c39cca4 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit acc1d8e37a6e0e497dae88db276741928afbc901
Author: Mark H Weaver <address@hidden>
Date:   Sun Nov 4 01:01:06 2012 -0400

    Preserve additional R6RS library name components after srfi :n
    
    * module/ice-9/r6rs-libraries.scm (resolve-r6rs-interface):
      (srfi :n ...) -> (srfi srfi-n ...) instead of (srfi srfi-n).

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/r6rs-libraries.scm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/ice-9/r6rs-libraries.scm b/module/ice-9/r6rs-libraries.scm
index f71b90b..019a6a7 100644
--- a/module/ice-9/r6rs-libraries.scm
+++ b/module/ice-9/r6rs-libraries.scm
@@ -29,7 +29,7 @@
   (define (sym? x) (symbol? (syntax->datum x)))
 
   (syntax-case import-spec (library only except prefix rename srfi)
-    ;; (srfi :n ...) -> (srfi srfi-n)
+    ;; (srfi :n ...) -> (srfi srfi-n ...)
     ((library (srfi colon-n rest ... (version ...)))
      (and (and-map sym? #'(srfi rest ...))
           (symbol? (syntax->datum #'colon-n))
@@ -40,7 +40,7 @@
                      (substring (symbol->string (syntax->datum #'colon-n))
                                 1)))))
        (resolve-r6rs-interface
-        #`(library (srfi #,srfi-n (version ...))))))
+        #`(library (srfi #,srfi-n rest ... (version ...))))))
     
     ((library (name name* ... (version ...)))
      (and-map sym? #'(name name* ...))


hooks/post-receive
-- 
GNU Guile