mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

pure r6rs modules

Browse source 
* module/ice-9/r6rs-libraries.scm (library): Make pure modules.
  (import): Also process imports at expand time, for the `eval' case.
This commit is contained in:
Andy Wingo 2010-05-20 13:59:34 +02:00
parent 4ffa827584
commit e6c7e9ed9c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -173,6 +173,7 @@
;; welcome! ;; welcome!
#'(begin #'(begin
(define-module (name name* ...) (define-module (name name* ...)
#:pure
#:version (version ...)) #:version (version ...))
(import ispec) (import ispec)
... ...
@ -187,7 +188,7 @@
((_ (for import-set import-level ...)) ((_ (for import-set import-level ...))
#'(import import-set)) #'(import import-set))
((_ import-set) ((_ import-set)
#'(eval-when (eval load compile) #'(eval-when (eval load compile expand)
(let ((iface (resolve-r6rs-interface 'import-set))) (let ((iface (resolve-r6rs-interface 'import-set)))
(call-with-deferred-observers (call-with-deferred-observers
(lambda () (lambda ()