[Guile-commits] GNU Guile branch, master, updated. 9ea12179fffffa8e1ba12cde4a10c35504a80012

[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=9ea12179fffffa8e1ba12cde4a10c35504a80012

The branch, master has been updated
       via  9ea12179fffffa8e1ba12cde4a10c35504a80012 (commit)
      from  8f9b968329797a6a228bb18f5dddfa7444c97ff5 (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 9ea12179fffffa8e1ba12cde4a10c35504a80012
Author: Andy Wingo <address@hidden>
Date:   Wed Jun 10 00:03:52 2009 +0200

    fix debug-options
    
    * module/ice-9/boot-9.scm (define-option-interface): Fix (debug-options
      'full), along with other options. Thanks to Mark Weaver for the tip.
    
    * THANKS: Update, though many more names need to be added.

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

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

diff --git a/THANKS b/THANKS
index e3cf1e3..748605c 100644
--- a/THANKS
+++ b/THANKS
@@ -93,6 +93,7 @@ For fixes or providing information which led to a fix:
           Scott Shedden
            Alex Shinn
          Daniel Skarda
+           Dale Smith
           Cesar Strauss
          Rainer Tammer
         Richard Todd
@@ -108,6 +109,7 @@ For fixes or providing information which led to a fix:
        Andreas Vögele
         Michael Talbot-Wilson
         Michael Tuexen
+        Mark H. Weaver
             Jon Wilson
            Andy Wingo
           Keith Wright
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index a260049..78b194a 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -2324,9 +2324,9 @@ module '(ice-9 q) '(make-q q-length))}."
 ;;;
 
 (defmacro define-option-interface (option-group)
-  (let* ((option-name car)
-        (option-value cadr)
-        (option-documentation caddr)
+  (let* ((option-name 'car)
+        (option-value 'cadr)
+        (option-documentation 'caddr)
 
         ;; Below follow the macros defining the run-time option interfaces.
 
@@ -2337,15 +2337,15 @@ module '(ice-9 q) '(make-q q-length))}."
                                   (,interface (car args)) (,interface))
                                  (else (for-each
                                          (lambda (option)
-                                           (display (option-name option))
+                                           (display (,option-name option))
                                            (if (< (string-length
-                                                   (symbol->string 
(option-name option)))
+                                                   (symbol->string 
(,option-name option)))
                                                   8)
                                                (display #\tab))
                                            (display #\tab)
-                                           (display (option-value option))
+                                           (display (,option-value option))
                                            (display #\tab)
-                                           (display (option-documentation 
option))
+                                           (display (,option-documentation 
option))
                                            (newline))
                                          (,interface #t)))))))
 


hooks/post-receive
-- 
GNU Guile