diff options
| author | Ludovic Courtès | 2008-01-28 16:44:19 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-28 16:44:19 +0100 |
| commit | f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0 (patch) | |
| tree | 87e55bebe699fe5f0d240dea5e4d78c3b8fa6203 | |
| parent | 9f5ac23d7200ad03d920fdce0f4ee6b291786e37 (diff) | |
| download | skribilo-f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0.tar.gz skribilo-f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0.tar.lz skribilo-f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0.zip | |
lout: Fix debugging support.
* src/guile/skribilo/engine/lout.scm (lout-debug): Fix.
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 4b6b62d..ed4c1b8 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -373,12 +373,9 @@ (define *lout-debug?* #f) (define-macro (lout-debug fmt . args) - `(if *lout-debug?* - (with-output-to-port (current-error-port) - (lambda () - (format #t (string-append ,fmt "~%") ,@args - (current-error-port)))) - #t)) + (if *lout-debug?* + `(format (current-error-port) (string-append ,fmt "~%") ,@args) + '#t)) (define (lout-tagify ident) ;; Return an "clean" identifier (a string) based on `ident' (a string), |