From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Aug 2004 06:31:43 +0000 (+0000)
Subject: Fix code that constructs HTML documents, by removing IRI from "html"
X-Git-Tag: 20090517-FFI~1598
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6da329bc64704d25e55fc7ddbcd2d92c1826e794;p=mit-scheme.git

Fix code that constructs HTML documents, by removing IRI from "html"
root name.
---

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index 7272c0703..eab3333bb 100644
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.12 2004/07/24 04:29:45 cph Exp $
+$Id: xhtml.scm,v 1.13 2004/08/12 06:31:43 cph Exp $
 
 Copyright 2002,2003,2004 Massachusetts Institute of Technology
 
@@ -75,14 +75,11 @@ USA.
        (html-external-id? (xml-dtd-external object))
        (null? (xml-dtd-internal object))))
 
-(define html-root-name
-  (make-xml-name 'html html-iri))
-
 (define html-1.0-dtd
-  (make-xml-dtd html-root-name html-1.0-external-id '()))
+  (make-xml-dtd 'html html-1.0-external-id '()))
 
 (define html-1.1-dtd
-  (make-xml-dtd html-root-name html-1.1-external-id '()))
+  (make-xml-dtd 'html html-1.1-external-id '()))
 
 (define (html-1.0-document attrs . items)
   (%make-document html-1.0-dtd attrs items))