From 6da329bc64704d25e55fc7ddbcd2d92c1826e794 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 12 Aug 2004 06:31:43 +0000 Subject: [PATCH] Fix code that constructs HTML documents, by removing IRI from "html" root name. --- v7/src/xml/xhtml.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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)) -- 2.25.1