From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Sep 2003 16:48:14 +0000 (+0000)
Subject: Efficiency tweak to XML-ELEMENT-NAMESPACE-IRI.
X-Git-Tag: 20090517-FFI~1792
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=210b948cac85bb47d5d5af64345f3eaa112a9d82;p=mit-scheme.git

Efficiency tweak to XML-ELEMENT-NAMESPACE-IRI.
---

diff --git a/v7/src/xml/xml-struct.scm b/v7/src/xml/xml-struct.scm
index dcbcac616..3994626e6 100644
--- a/v7/src/xml/xml-struct.scm
+++ b/v7/src/xml/xml-struct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-struct.scm,v 1.30 2003/09/24 22:39:12 cph Exp $
+$Id: xml-struct.scm,v 1.31 2003/09/25 16:48:14 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -679,9 +679,10 @@ USA.
 (define (xml-element-namespace-iri elt prefix)
   (let ((attr
 	 (find-matching-item (xml-element-attributes elt)
-	   (lambda (attr)
-	     (or (and (xml-name=? (car attr) 'xmlns)
-		      (null-xml-name-prefix? prefix))
+	   (if (null-xml-name-prefix? prefix)
+	       (lambda (attr)
+		 (xml-name=? (car attr) 'xmlns))
+	       (lambda (attr)
 		 (and (xml-name-prefix=? (car attr) 'xmlns)
 		      (xml-name-local=? (car attr) prefix)))))))
     (and attr