summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/sxml/ssax.scm7
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)))