From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Jul 2004 04:29:45 +0000 (+0000)
Subject: Fix bug: DTD can't have namespace on its root element name.
X-Git-Tag: 20090517-FFI~1604
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=83cd3f53225855b8b1082983dc25092152f224ba;p=mit-scheme.git

Fix bug: DTD can't have namespace on its root element name.
---

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))))