From eb0c5691c91d61b9bceabd4222fdb87243c6cee6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 26 Feb 2004 04:50:14 +0000 Subject: [PATCH] Fix thinko in handling of name parsing. --- v7/src/xml/xml-parser.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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"))) -- 2.25.1