[PATCH] Ignore the SRFI name component(s) in R6RS imports

[Andreas Rottmann]

From: Andreas Rottmann <a.rottm...@gmx.at>
Subject: Ignore the SRFI name component(s) in R6RS imports

* module/ice-9/r6rs-libraries.scm (resolve-r6rs-interface): To avoid having to
  create alias libraries for all the SRFIs, we simply ignore the name
  components, so (srfi :n foo bar) will resolve to (srfi :n).


---
 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 482f826..6fcde27 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 rest ... (version ...))))))
+        #`(library (srfi #,srfi-n (version ...))))))
     
     ((library (name name* ... (version ...)))
      (and-map sym? #'(name name* ...))
-- 
tg: (c399333..) t/ignore-r6rs-srfi-names (depends on: master)

-- 
Andreas Rottmann -- <http://rotty.yi.org/>