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

eval-when expand for use-modules and export

Browse source 
* module/ice-9/boot-9.scm (use-modules, use-syntax)
  (export, re-export): Add `expand' to the eval-when list, as we did for
  R6RS.
This commit is contained in:
Andy Wingo 2010-05-20 17:52:44 +02:00
parent e6c7e9ed9c
commit 520caaeba4
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/ice-9/boot-9.scm
View file

@ -3383,7 +3383,7 @@ module '(ice-9 q) '(make-q q-length))}."
(syntax-case x ()
((_ spec ...)
(with-syntax (((quoted-args ...) (quotify #'(spec ...))))
#'(eval-when (eval load compile)
#'(eval-when (eval load compile expand)
(process-use-modules (list quoted-args ...))
*unspecified*))))))
@ -3391,7 +3391,7 @@ module '(ice-9 q) '(make-q q-length))}."
(syntax-rules ()
((_ spec ...)
(begin
(eval-when (eval load compile)
(eval-when (eval load compile expand)
(issue-deprecation-warning
"`use-syntax' is deprecated. Please contact guile-devel for more info."))
(use-modules spec ...)))))
@ -3483,7 +3483,7 @@ module '(ice-9 q) '(make-q q-length))}."
(define-syntax export
(syntax-rules ()
((_ name ...)
(eval-when (eval load compile)
(eval-when (eval load compile expand)
(call-with-deferred-observers
(lambda ()
(module-export! (current-module) '(name ...))))))))
@ -3491,7 +3491,7 @@ module '(ice-9 q) '(make-q q-length))}."
(define-syntax re-export
(syntax-rules ()
((_ name ...)
(eval-when (eval load compile)
(eval-when (eval load compile expand)
(call-with-deferred-observers
(lambda ()
(module-re-export! (current-module) '(name ...))))))))