From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Dec 2002 18:17:57 +0000 (+0000)
Subject: Don't rewrite & in entity values; it is assumed that value is already
X-Git-Tag: 20090517-FFI~2112
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a6bdef8738eb3c4a28087b4e335b5a23757ed401;p=mit-scheme.git

Don't rewrite & in entity values; it is assumed that value is already
rewritten.
---

diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm
index e210906f1..4245f21c8 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.6 2002/12/09 05:47:33 cph Exp $
+;;; $Id: xml-output.scm,v 1.7 2002/12/09 18:17:57 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -361,8 +361,6 @@
 	       (write-string (if (char=? char #\") "&quot;" "&apos;") port))
 	      ((char=? char #\%)
 	       (write-string "&#37;" port))
-	      ((char=? char #\&)
-	       (write-string "&amp;" port))
 	      (else
 	       (write-char char port)))))
     (write-char quote-char port)))