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 Scott Shedden
Alex Shinn Alex Shinn
Daniel Skarda Daniel Skarda
Dale Smith
Cesar Strauss Cesar Strauss
Rainer Tammer Rainer Tammer
Richard Todd Richard Todd
@ -108,6 +109,7 @@ For fixes or providing information which led to a fix:
Andreas Vögele Andreas Vögele
Michael Talbot-Wilson Michael Talbot-Wilson
Michael Tuexen Michael Tuexen
Mark H. Weaver
Jon Wilson Jon Wilson
Andy Wingo Andy Wingo
Keith Wright 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) (defmacro define-option-interface (option-group)
(let* ((option-name car) (let* ((option-name 'car)
(option-value cadr) (option-value 'cadr)
(option-documentation caddr) (option-documentation 'caddr)
;; Below follow the macros defining the run-time option interfaces. ;; 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)) (,interface (car args)) (,interface))
(else (for-each (else (for-each
(lambda (option) (lambda (option)
(display (option-name option)) (display (,option-name option))
(if (< (string-length (if (< (string-length
(symbol->string (option-name option))) (symbol->string (,option-name option)))
8) 8)
(display #\tab)) (display #\tab))
(display #\tab) (display #\tab)
(display (option-value option)) (display (,option-value option))
(display #\tab) (display #\tab)
(display (option-documentation option)) (display (,option-documentation option))
(newline)) (newline))
(,interface #t))))))) (,interface #t)))))))