[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-13-69-ge79caaa
Date: Thu, 18 Nov 2010 13:41:14 +0000

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".

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)))))))))))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]