From dc850910150673f6c7ece322ff6e39ce70c70cbe Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Mon, 28 Jan 2008 17:06:48 +0100
Subject: lout: Make `lout-debug' Guile-Lint-friendly.

---
 src/guile/skribilo/engine/lout.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 1f91ad4..81f8f1e 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -373,9 +373,8 @@
 (define *lout-debug?* #f)
 
 (define-macro (lout-debug fmt . args)
-  (if *lout-debug?*
-      `(format (current-error-port) (string-append ,fmt "~%") ,@args)
-      '#t))
+  `(and *lout-debug?*
+        (format (current-error-port) (string-append ,fmt "~%") ,@args)))
 
 (define (lout-tagify ident)
   ;; Return an "clean" identifier (a string) based on `ident' (a string),
-- 
cgit v1.2.3