From 0005fbe8ddfe636aa57e24e97f46dbcfa0bb2d24 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Jul 2001 18:55:28 +0000
Subject: [PATCH] Tweak format of !ELEMENT content type to be a little easier
 to disassemble.

---
 v7/src/xml/xml-parser.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index ac65da192..7ec4594e6 100644
--- 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
-- 
2.25.1