From 766aa302dc4f89d8c3273fd824482c1014e3b833 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 23 Feb 2004 20:52:49 +0000 Subject: [PATCH] Use wide string to test re-reading of document. --- v7/src/xml/test-parser.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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: ") -- 2.25.1