[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, master, updated. 9ea12179fffffa8e1ba12
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, master, updated. 9ea12179fffffa8e1ba12cde4a10c35504a80012 |
Date: |
Tue, 09 Jun 2009 22:03:33 +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".
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, master, updated. 9ea12179fffffa8e1ba12cde4a10c35504a80012,
Andy Wingo <=