From f9f7ba3ff0419483531f0e1d97b58aabcfc60bc0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Mon, 28 Jan 2008 16:44:19 +0100
Subject: lout: Fix debugging support.

* src/guile/skribilo/engine/lout.scm (lout-debug): Fix.
---
 src/guile/skribilo/engine/lout.scm | 9 +++------
 1 file 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),
-- 
cgit v1.2.3