From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Feb 2004 01:52:24 +0000 (+0000)
Subject: Remove now-obsolete code that forces output coding to UTF-8.
X-Git-Tag: 20090517-FFI~1664
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=398d29825625655ce144459773d5f4823c9304ba;p=mit-scheme.git

Remove now-obsolete code that forces output coding to UTF-8.
---

diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm
index c5d442b5e..3dd0c426c 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.32 2004/02/25 21:00:49 cph Exp $
+$Id: xml-output.scm,v 1.33 2004/02/26 01:52:24 cph Exp $
 
 Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -57,9 +57,6 @@ USA.
   (wide-string->utf8-string (apply xml->wide-string xml options)))
 
 (define (write-xml-1 xml port options)
-  (let ((operation (port/operation port 'SET-CODING)))
-    (if operation
-	(operation port 'UTF-8)))
   (%write-xml xml (make-ctx port options)))
 
 (define-structure (ctx (type-descriptor <ctx>)