diff options
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 9 |
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), |