From 870a700f68208de3e71a4eb1abae67828f290399 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Wed, 23 May 2012 15:08:15 +0200
Subject: html: Set the output port's conversion strategy to 'error.

* src/guile/skribilo/engine/html.scm (&html-generic-document)[guile-2]:
  Set the output port's conversion strategy to 'error.
---
 src/guile/skribilo/engine/html.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 39ab06e..5dad3bc 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1173,7 +1173,8 @@
       ;; Make sure the output is suitably encoded.
       (and=> (engine-custom e 'charset)
              (lambda (charset)
-               (set-port-encoding! (current-output-port) charset))))
+               (set-port-encoding! (current-output-port) charset)
+               (set-port-conversion-strategy! (current-output-port) 'error))))
      (else #t)))
 
    (let* ((id (markup-ident n))
-- 
cgit v1.2.3