diff options
| author | Ludovic Courtès | 2008-01-28 17:06:48 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-28 17:06:48 +0100 |
| commit | dc850910150673f6c7ece322ff6e39ce70c70cbe (patch) | |
| tree | 60623e64458c92596e2c431e31a1f2d5845eadb1 | |
| parent | b8719625b1e2e6fff136c48579d75ebd5a185dab (diff) | |
| download | skribilo-dc850910150673f6c7ece322ff6e39ce70c70cbe.tar.gz skribilo-dc850910150673f6c7ece322ff6e39ce70c70cbe.tar.lz skribilo-dc850910150673f6c7ece322ff6e39ce70c70cbe.zip | |
lout: Make `lout-debug' Guile-Lint-friendly.
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 5 |
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), |