From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 12 Jul 2003 04:34:43 +0000 (+0000)
Subject: Allow wide strings as content in elements.
X-Git-Tag: 20090517-FFI~1875
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3bf4df2139baa48d22352eca89bd4e101e2da8ab;p=mit-scheme.git

Allow wide strings as content in elements.
---

diff --git a/v7/src/xml/xml-struct.scm b/v7/src/xml/xml-struct.scm
index bc2779669..9f0ae8806 100644
--- a/v7/src/xml/xml-struct.scm
+++ b/v7/src/xml/xml-struct.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-struct.scm,v 1.12 2003/03/08 02:14:25 cph Exp $
+$Id: xml-struct.scm,v 1.13 2003/07/12 04:34:43 cph Exp $
 
 Copyright 2001,2002,2003 Massachusetts Institute of Technology
 
@@ -171,6 +171,7 @@ USA.
      (list-of-type? object
        (lambda (object)
 	 (or (string? object)
+	     (wide-string? object)
 	     (xml-comment? object)
 	     (xml-element? object)
 	     (xml-processing-instructions? object)