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

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!
#'(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 ()