From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Feb 2004 04:50:14 +0000 (+0000)
Subject: Fix thinko in handling of name parsing.
X-Git-Tag: 20090517-FFI~1662
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eb0c5691c91d61b9bceabd4222fdb87243c6cee6;p=mit-scheme.git

Fix thinko in handling of name parsing.
---

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index b52fc9f41..b69ae8ab9 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.58 2004/02/25 21:00:52 cph Exp $
+$Id: xml-parser.scm,v 1.59 2004/02/26 04:50:14 cph Exp $
 
 Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -517,8 +517,7 @@ USA.
   (*parser
    (with-pointer p
      (map (lambda (s) (cons (make-xml-qname s) p))
-	  (match (seq (? (seq match-name ":"))
-		      match-name))))))
+	  (match match-name)))))
 
 (define (simple-name-parser type)
   (let ((m (string-append "Malformed " type " name")))