Add XHTML support.

diff --git a/v7/src/xml/compile.scm b/v7/src/xml/compile.scm
index 5f08bd7cf9109c2ec0f913ca72246a7ab1658521..b8373aeed3c6a642cc63c173a2a7655223b7ed70 100644 (file)
--- a/v7/src/xml/compile.scm
+++ b/v7/src/xml/compile.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: compile.scm,v 1.12 2003/09/26 03:56:38 cph Exp $
+$Id: compile.scm,v 1.13 2004/07/15 18:16:43 cph Exp $
 
-Copyright 2001,2003 Massachusetts Institute of Technology
+Copyright 2001,2003,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -42,5 +42,6 @@ USA.
                    "xml-struct"
                    "xml-chars"
                    "xml-output"
-                   "xml-parser"))))
+                   "xml-parser"
+                   "xhtml"))))
     (cref/generate-constructors "xml")))
\ No newline at end of file

diff --git a/v7/src/xml/load.scm b/v7/src/xml/load.scm
index dcc48725517582cc4295bba5145342de0f2f1f30..cd0d200f45ef3cd7adf2b33ba405aecc9a679dca 100644 (file)
--- a/v7/src/xml/load.scm
+++ b/v7/src/xml/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 1.12 2004/02/26 18:31:41 cph Exp $
+$Id: load.scm,v 1.13 2004/07/15 18:16:49 cph Exp $
 
 Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -28,4 +28,4 @@ USA.
 (with-working-directory-pathname (directory-pathname (current-load-pathname))
   (lambda ()
     (package/system-loader "xml" '() 'QUERY)))
-(add-subsystem-identification! "XML" '(0 5))
\ No newline at end of file
+(add-subsystem-identification! "XML" '(0 6))
\ No newline at end of file