From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Jul 2001 18:55:28 +0000 (+0000)
Subject: Tweak format of !ELEMENT content type to be a little easier to
X-Git-Tag: 20090517-FFI~2649
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0005fbe8ddfe636aa57e24e97f46dbcfa0bb2d24;p=mit-scheme.git

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 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