From 4ef7d157dfbced1850d3b824d396f0e22c12a009 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 11 Dec 2007 02:32:29 -0500 Subject: [PATCH] Fixes bug 175480: Typo in make-custom-textual-output-port error message --- scheme/ikarus.io.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss index f29d4f3..15e3e24 100644 --- a/scheme/ikarus.io.ss +++ b/scheme/ikarus.io.ss @@ -220,7 +220,7 @@ (unless (string? id) (error who "id is not a string" id)) (unless (procedure? write!) - (error who "read! is not a procedure" write!)) + (error who "write! is not a procedure" write!)) (unless (or (procedure? close) (not close)) (error who "close should be either a procedure or #f" close)) ($make-custom-binary-port @@ -250,7 +250,7 @@ (unless (string? id) (error who "id is not a string" id)) (unless (procedure? write!) - (error who "read! is not a procedure" write!)) + (error who "write! is not a procedure" write!)) (unless (or (procedure? close) (not close)) (error who "close should be either a procedure or #f" close)) ($make-custom-textual-port