mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +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

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