Implement HTML-ELEMENT?.

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index f1c4734194913eba049d4ceb7caa76fc3e942505..d608d38b811e7248e181f653c27a10fda07a266f 100644 (file)
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.1 2004/07/12 19:05:17 cph Exp $
+$Id: xhtml.scm,v 1.2 2004/07/12 19:08:32 cph Exp $
 
 Copyright 2002,2003,2004 Massachusetts Institute of Technology
 
@@ -37,6 +37,10 @@ USA.
 (define html-iri
   (make-xml-namespace-iri "http://www.w3.org/1999/xhtml"))
 
+(define (html-element? object)
+  (and (xml-element? object)
+       (xml-name-iri=? (xml-element-name object) html-iri)))
+
 (define-syntax define-standard-element
   (sc-macro-transformer
    (lambda (form environment)

diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index 8f960cfcba1f59d03fbcda9a670da3b18124f5f8..0abe67572c14a61631662b6faba6c4a7b4c1d8e7 100644 (file)
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml.pkg,v 1.42 2004/07/12 19:05:36 cph Exp $
+$Id: xml.pkg,v 1.43 2004/07/12 19:08:36 cph Exp $
 
 Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -299,6 +299,7 @@ USA.
   (export ()
          html-attrs
          html-dtd
+         html-element?
          html-external-dtd
          html-iri
          html:a