From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Feb 2004 20:52:49 +0000 (+0000)
Subject: Use wide string to test re-reading of document.
X-Git-Tag: 20090517-FFI~1682
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=766aa302dc4f89d8c3273fd824482c1014e3b833;p=mit-scheme.git

Use wide string to test re-reading of document.
---

diff --git a/v7/src/xml/test-parser.scm b/v7/src/xml/test-parser.scm
index 7ae6d52d3..326fc6a61 100644
--- a/v7/src/xml/test-parser.scm
+++ b/v7/src/xml/test-parser.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: test-parser.scm,v 1.10 2003/03/01 16:52:10 cph Exp $
+$Id: test-parser.scm,v 1.11 2004/02/23 20:52:49 cph Exp $
 
-Copyright 2001 Massachusetts Institute of Technology
+Copyright 2001,2004 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -50,7 +50,7 @@ USA.
 		 ((condition? v)
 		  (write-condition-report v (current-output-port)))
 		 (else
-		  (let ((s (ignore-errors (lambda () (xml->string v)))))
+		  (let ((s (ignore-errors (lambda () (xml->wide-string v)))))
 		    (if (condition? s)
 			(begin
 			  (write-string "Can't write: ")