diff options
author | Andy Wingo <wingo@pobox.com> | 2009-06-10 00:03:52 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-06-10 00:03:52 +0200 |
commit | 9ea12179fffffa8e1ba12cde4a10c35504a80012 (patch) | |
tree | c30b5127f57da8ec6b9ed70740538ebaf0dd8f9d | |
parent | 8f9b968329797a6a228bb18f5dddfa7444c97ff5 (diff) | |
download | guile-9ea12179fffffa8e1ba12cde4a10c35504a80012.tar.gz |
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.
-rw-r--r-- | THANKS | 2 | ||||
-rw-r--r-- | module/ice-9/boot-9.scm | 14 |
2 files changed, 9 insertions, 7 deletions
@@ -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 a2600491b..78b194aa3 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))))))) |