From f48f8fea855a59e47659201090772bc19b18b752 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 15 Jul 2004 18:16:49 +0000 Subject: [PATCH] Add XHTML support. --- v7/src/xml/compile.scm | 7 ++++--- v7/src/xml/load.scm | 4 ++-- 2 files changed, 6 insertions(+), 5 deletions(-) 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 -- 2.25.1