From e11237e0e68632c20ecb3fbef985f973f1ff65cf Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Jul 2007 00:34:02 +0000
Subject: [PATCH] Compare XML names as strings rather than as expanded names.

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

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index c2b457e49..1a24a34da 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.73 2007/01/17 03:43:09 cph Exp $
+$Id: xml-parser.scm,v 1.74 2007/07/23 00:34:02 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -390,7 +390,8 @@ USA.
 	  (if (peek-parser-buffer-char b)
 	      (perror (get-parser-buffer-pointer b) "Unknown content")
 	      (perror p "Unterminated start tag" name)))
-      (if (not (xml-name=? (vector-ref ve 0) name))
+      (if (not (eq? (xml-name-qname (vector-ref ve 0))
+		    (xml-name-qname name)))
 	  (perror p "Mismatched start tag" (vector-ref ve 0) name))
       (let ((content (coalesce-strings! (vector->list vc))))
 	(if (null? content)
-- 
2.25.1