From 3bf4df2139baa48d22352eca89bd4e101e2da8ab Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 12 Jul 2003 04:34:43 +0000
Subject: [PATCH] Allow wide strings as content in elements.

---
 v7/src/xml/xml-struct.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.25.1