[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-134-g520caae

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=520caaeba4aa217688f046f4298978d45ffcf4e3

The branch, master has been updated
       via  520caaeba4aa217688f046f4298978d45ffcf4e3 (commit)
      from  e6c7e9ed9cb47caa9dc1ef07c872795398279d37 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 520caaeba4aa217688f046f4298978d45ffcf4e3
Author: Andy Wingo <address@hidden>
Date:   Thu May 20 17:52:44 2010 +0200

    eval-when expand for use-modules and export
    
    * 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.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/boot-9.scm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index b2ca4ac..4bdd86b 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -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 ...))))))))


hooks/post-receive
-- 
GNU Guile