[Guile-commits] GNU Guile branch, master, updated. release_1-9-13-69-ge79caaa

[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=e79caaa6c5c071746f1684b3d166c586297b3c6a

The branch, master has been updated
       via  e79caaa6c5c071746f1684b3d166c586297b3c6a (commit)
      from  c372cd74fdc5de5b3ee3299b77a7881e271c649c (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 e79caaa6c5c071746f1684b3d166c586297b3c6a
Author: Andy Wingo <address@hidden>
Date:   Thu Nov 18 14:43:43 2010 +0100

    read-set! takes effect at expand time
    
    * module/ice-9/boot-9.scm (define-option-interface): The set! command
      goes in an eval-when to be run at expand-time, so that (read-set!
      keywords 'prefix) does what it used to in 1.8 (mostly).

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

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

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index f945ffd..b3b6893 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2637,7 +2637,8 @@ module '(ice-9 q) '(make-q q-length))}."
        (define-syntax option-set!
          (syntax-rules ()
            ((_ opt val)
-            (options (append (options) (list 'opt val))))))))))
+            (eval-when (eval load compile expand)
+              (options (append (options) (list 'opt val)))))))))))
 
 (define-option-interface
   (debug-options-interface


hooks/post-receive
-- 
GNU Guile