diff options
Diffstat (limited to 'src/guile/skribilo/engine/html.scm')
-rw-r--r-- | src/guile/skribilo/engine/html.scm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index 9055486..5120631 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -1161,14 +1161,11 @@ ;*---------------------------------------------------------------------*/ (define (&html-generic-document n title e) (define (set-output-encoding) - (cond-expand - (guile-2 - ;; Make sure the output is suitably encoded. - (and=> (engine-custom e 'charset) - (lambda (charset) - (set-port-encoding! (current-output-port) charset) - (set-port-conversion-strategy! (current-output-port) 'error)))) - (else #t))) + ;; Make sure the output is suitably encoded. + (and=> (engine-custom e 'charset) + (lambda (charset) + (set-port-encoding! (current-output-port) charset) + (set-port-conversion-strategy! (current-output-port) 'error)))) (let* ((id (markup-ident n)) (header (new markup |