From 83cd3f53225855b8b1082983dc25092152f224ba Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Jul 2004 04:29:45 +0000
Subject: [PATCH] Fix bug: DTD can't have namespace on its root element name.

---
 v7/src/xml/xhtml.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index 5fce26d95..7272c0703 100644
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.11 2004/07/24 03:19:18 cph Exp $
+$Id: xhtml.scm,v 1.12 2004/07/24 04:29:45 cph Exp $
 
 Copyright 2002,2003,2004 Massachusetts Institute of Technology
 
@@ -71,7 +71,7 @@ USA.
 
 (define (html-dtd? object)
   (and (xml-dtd? object)
-       (html:html? (xml-dtd-root object))
+       (eq? (xml-dtd-root object) 'html)
        (html-external-id? (xml-dtd-external object))
        (null? (xml-dtd-internal object))))
 
-- 
2.25.1