diff options
author | Andy Wingo <wingo@pobox.com> | 2010-05-20 13:59:34 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-05-20 13:59:34 +0200 |
commit | e6c7e9ed9cb47caa9dc1ef07c872795398279d37 (patch) | |
tree | ee6bc5ff4f9726a07a6597e819e0d6a655628499 /module/ice-9/r6rs-libraries.scm | |
parent | 4ffa82758478927db4e2cf18379c296ef5f20c06 (diff) | |
download | guile-e6c7e9ed9cb47caa9dc1ef07c872795398279d37.tar.gz |
pure r6rs modules
* module/ice-9/r6rs-libraries.scm (library): Make pure modules.
(import): Also process imports at expand time, for the `eval' case.
Diffstat (limited to 'module/ice-9/r6rs-libraries.scm')
-rw-r--r-- | module/ice-9/r6rs-libraries.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/ice-9/r6rs-libraries.scm b/module/ice-9/r6rs-libraries.scm index 14c89d01e..fbe80edf9 100644 --- a/module/ice-9/r6rs-libraries.scm +++ b/module/ice-9/r6rs-libraries.scm @@ -173,6 +173,7 @@ ;; welcome! #'(begin (define-module (name name* ...) + #:pure #:version (version ...)) (import ispec) ... @@ -187,7 +188,7 @@ ((_ (for import-set import-level ...)) #'(import import-set)) ((_ import-set) - #'(eval-when (eval load compile) + #'(eval-when (eval load compile expand) (let ((iface (resolve-r6rs-interface 'import-set))) (call-with-deferred-observers (lambda () |