Tweak format of !ELEMENT content type to be a little easier to

disassemble.

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index ac65da1924210e3e6b810bb2261ad931cc20e7e9..7ec4594e60ec3c13bb6be008c97d0c3157bfb744 100644 (file)
--- a/v7/src/xml/xml-parser.scm
+++ b/v7/src/xml/xml-parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xml-parser.scm,v 1.8 2001/07/12 05:31:37 cph Exp $
+;;; $Id: xml-parser.scm,v 1.9 2001/07/16 18:55:28 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -709,7 +709,7 @@
        (lambda (v)
          (if (fix:= (vector-length v) 1)
              (vector-ref v 0)
-             (list (xml-intern (vector-ref v 1))
+             (list (string-ref (vector-ref v 1) 0)
                    (vector-ref v 0))))))
 
     (*parser