mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

fix debug-options

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-06-10 00:03:52 +02:00
parent 8f9b968329
commit 9ea12179ff
2 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
THANKS
View file

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

14
module/ice-9/boot-9.scm
View file

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