fix ssax:warn to work as intended

* module/sxml/ssax.scm (ssax:warn): Fix to make more sense.

diff --git a/module/sxml/ssax.scm b/module/sxml/ssax.scm
index 474247b..cf94b71 100644 (file)
--- a/module/sxml/ssax.scm
+++ b/module/sxml/ssax.scm
@@ -180,9 +180,11 @@
   (parameterize ((current-ssax-error-port port))
     (thunk)))
 
-(define (ssax:warn port msg . args)
-  (format (current-ssax-error-port)
-          ";;; SSAX warning: ~a ~a\n" msg args))
+(define (ssax:warn port . args)
+  (with-output-to-port (current-ssax-error-port)
+    (display ";;; SSAX warning: ")
+    (for-each display args)
+    (newline)))
 
 (define (ucscode->string codepoint)
   (string (integer->char codepoint)))