mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Ignore the SRFI name component(s) in R6RS imports

Browse source 
* 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).
This commit is contained in:
Andreas Rottmann 2010-06-19 14:52:21 +02:00 • committed by Andy Wingo
parent e5b218826a
commit b1e5445f77
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/r6rs-libraries.scm
View file

@ -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* ...))