From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jul 2004 18:16:49 +0000 (+0000)
Subject: Add XHTML support.
X-Git-Tag: 20090517-FFI~1619
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f48f8fea855a59e47659201090772bc19b18b752;p=mit-scheme.git

Add XHTML support.
---

diff --git a/v7/src/xml/compile.scm b/v7/src/xml/compile.scm
index 5f08bd7cf..b8373aeed 100644
--- 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 dcc487255..cd0d200f4 100644
--- 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