diff options
-rw-r--r-- | module/sxml/ssax.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/sxml/ssax.scm b/module/sxml/ssax.scm index cf94b715a..f750c934a 100644 --- a/module/sxml/ssax.scm +++ b/module/sxml/ssax.scm @@ -182,9 +182,10 @@ (define (ssax:warn port . args) (with-output-to-port (current-ssax-error-port) - (display ";;; SSAX warning: ") - (for-each display args) - (newline))) + (lambda () + (display ";;; SSAX warning: ") + (for-each display args) + (newline)))) (define (ucscode->string codepoint) (string (integer->char codepoint))) |