summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-28 16:44:19 +0100
committerLudovic Courtès2008-01-28 16:44:19 +0100
commitf9f7ba3ff0419483531f0e1d97b58aabcfc60bc0 (patch)
tree87e55bebe699fe5f0d240dea5e4d78c3b8fa6203 /src/guile
parent9f5ac23d7200ad03d920fdce0f4ee6b291786e37 (diff)
downloadskribilo-f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0.tar.gz
skribilo-f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0.tar.lz
skribilo-f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0.zip
lout: Fix debugging support.
* src/guile/skribilo/engine/lout.scm (lout-debug): Fix.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm9
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),