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

Ignore explicit phase specification for imports in `library' form.

Browse source 
* module/ice-9/r6rs-libraries.scm (library): Unwrap the `for' sub-form
  during export resolution the same way that `import' does.
* test-suite/tests/rnrs-libraries.test ("implicit phasing"): New test
  prefix and tests.
This commit is contained in:
Julian Graham 2010-05-27 21:32:20 -04:00
parent 853cb35661
commit 04186f2006
2 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -161,8 +161,14 @@
(and-map identifier? #'(name name* ...))
(call-with-values
(lambda ()
(compute-exports (map resolve-r6rs-interface #'(ispec ...))
#'(espec ...)))
(compute-exports
(map (lambda (im)
(syntax-case im (for)
((for import-set import-level ...)
(resolve-r6rs-interface #'import-set))
(import-set (resolve-r6rs-interface #'import-set))))
#'(ispec ...))
#'(espec ...)))
(lambda (exports re-exports)
(with-syntax (((e ...) exports)
((r ...) re-exports))

15
test-suite/tests/rnrs-libraries.test
View file

@ -114,6 +114,21 @@
(equal? (eval '(double 20) (current-module))
40)))
;; Guile should ignore explicit phase specifications
;;
(with-test-prefix "implicit phasing"
(with-test-prefix "in library form"
(pass-if "explicit phasing ignored"
(import (for (guile) (meta -1))) #t))
(with-test-prefix "in library form"
(pass-if "explicit phasing ignored"
(save-module-excursion
(lambda ()
(library (test)
(export)
(import (for (guile) (meta -1))))
#t)))))
;; Now import features.
;;