From b756bfb2f142597e349094884a58bbaf9947b8e3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 26 May 2004 15:26:29 +0000 Subject: [PATCH] Use new procedure PORT/SUPPORTS-CODING? to eliminate error when writing XML to string. --- v7/src/xml/xml-parser.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm index b69ae8ab9..d30332e24 100644 --- a/v7/src/xml/xml-parser.scm +++ b/v7/src/xml/xml-parser.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xml-parser.scm,v 1.59 2004/02/26 04:50:14 cph Exp $ +$Id: xml-parser.scm,v 1.60 2004/05/26 15:26:29 cph Exp $ Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology @@ -201,7 +201,9 @@ USA. (let ((coding (xml-declaration-encoding declaration))) (and coding (intern coding)))))) - (if (and coding (not (port/known-coding? port coding))) + (if (and coding + (not (port/known-coding? port coding)) + (port/supports-coding? port)) (error:bad-range-argument coding #f)) coding)) -- 2.25.1