summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-28 17:06:48 +0100
committerLudovic Courtès2008-01-28 17:06:48 +0100
commitdc850910150673f6c7ece322ff6e39ce70c70cbe (patch)
tree60623e64458c92596e2c431e31a1f2d5845eadb1 /src/guile
parentb8719625b1e2e6fff136c48579d75ebd5a185dab (diff)
downloadskribilo-dc850910150673f6c7ece322ff6e39ce70c70cbe.tar.gz
skribilo-dc850910150673f6c7ece322ff6e39ce70c70cbe.tar.lz
skribilo-dc850910150673f6c7ece322ff6e39ce70c70cbe.zip
lout: Make `lout-debug' Guile-Lint-friendly.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm5
1 files changed, 2 insertions, 3 deletions
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),