From 1d8b218f91b003f2a29f241ab98238c82c810872 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 24 Feb 2004 20:48:32 +0000 Subject: [PATCH] Fix typo. --- v7/src/xml/xml-output.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm index c9f83394c..8009307ce 100644 --- a/v7/src/xml/xml-output.scm +++ b/v7/src/xml/xml-output.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xml-output.scm,v 1.30 2004/02/24 20:36:25 cph Exp $ +$Id: xml-output.scm,v 1.31 2004/02/24 20:48:32 cph Exp $ Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology @@ -39,9 +39,10 @@ USA. (define (set-coding xml port) (port/set-coding port - (normalize-coding port - (and (xml-document? xml) - (xml-document-declaration xml)))) + (or (normalize-coding port + (and (xml-document? xml) + (xml-document-declaration xml))) + 'UTF-8)) (port/set-line-ending port 'TEXT)) (define (xml->wide-string xml . options) -- 2.25.1