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 e210906f141b4e4ed854ff96bc0c5add60be7d87..4245f21c8c69a764d9757d8cc006777d0196cab0 100644 (file)
--- 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 #\") """ "'") port))
              ((char=? char #\%)
               (write-string "%" port))
-             ((char=? char #\&)
-              (write-string "&" port))
              (else
               (write-char char port)))))
     (write-char quote-char port)))