[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] Ignore the SRFI name component(s) in R6RS imports
From: |
Andreas Rottmann |
Subject: |
[PATCH] Ignore the SRFI name component(s) in R6RS imports |
Date: |
Sat, 19 Jun 2010 14:20:31 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux) |
From: Andreas Rottmann <address@hidden>
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/>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] Ignore the SRFI name component(s) in R6RS imports,
Andreas Rottmann <=