From e6c7e9ed9cb47caa9dc1ef07c872795398279d37 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 20 May 2010 13:59:34 +0200 Subject: pure r6rs modules * module/ice-9/r6rs-libraries.scm (library): Make pure modules. (import): Also process imports at expand time, for the `eval' case. --- module/ice-9/r6rs-libraries.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/ice-9/r6rs-libraries.scm') 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 () -- cgit v1.2.1