From ae087c18b65ecea5c12bcedc08393fcfecf5dc0b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 10 Feb 2008 06:19:58 +0000
Subject: [PATCH] fixed error messages

svn: r8611
---
 collects/scheme/private/kw-file.ss | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/scheme/private/kw-file.ss b/collects/scheme/private/kw-file.ss
index 779cf074a5..2ba2b8be88 100644
--- a/collects/scheme/private/kw-file.ss
+++ b/collects/scheme/private/kw-file.ss
@@ -56,7 +56,7 @@
                                (raise-type-error 'call-with-input-file "path or string" path))
                              (unless (and (procedure? proc)
                                           (procedure-arity-includes? proc 1))
-                               (raise-type-error 'call-with-input-file "procedure (arity 1)" path))
+                               (raise-type-error 'call-with-input-file "procedure (arity 1)" proc))
                              (unless (memq mode '(binary text))
                                (raise-type-error 'call-with-input-file "'binary or 'text" mode))
                              (call-with-input-file path proc mode))])
@@ -70,7 +70,7 @@
                                (raise-type-error 'call-with-output-file "path or string" path))
                              (unless (and (procedure? proc)
                                           (procedure-arity-includes? proc 1))
-                               (raise-type-error 'call-with-output-file "procedure (arity 1)" path))
+                               (raise-type-error 'call-with-output-file "procedure (arity 1)" proc))
                              (unless (memq mode '(binary text))
                                (raise-type-error 'call-with-output-file "'binary or 'text" mode))
                              (unless (memq exists exists-syms)
@@ -84,7 +84,7 @@
                                (raise-type-error 'with-input-from-file "path or string" path))
                              (unless (and (procedure? proc)
                                           (procedure-arity-includes? proc 0))
-                               (raise-type-error 'with-input-from-file "procedure (arity 0)" path))
+                               (raise-type-error 'with-input-from-file "procedure (arity 0)" proc))
                              (unless (memq mode '(binary text))
                                (raise-type-error 'with-input-from-file "'binary or 'text" mode))
                              (with-input-from-file path proc mode))])
@@ -98,7 +98,7 @@
                                (raise-type-error 'with-output-to-file "path or string" path))
                              (unless (and (procedure? proc)
                                           (procedure-arity-includes? proc 0))
-                               (raise-type-error 'with-output-to-file "procedure (arity 0)" path))
+                               (raise-type-error 'with-output-to-file "procedure (arity 0)" proc))
                              (unless (memq mode '(binary text))
                                (raise-type-error 'with-output-to-file "'binary or 'text" mode))
                              (unless (memq exists exists-syms)
@@ -112,7 +112,7 @@
         (raise-type-error 'call-with-input-file* "path or string" path))
       (unless (and (procedure? proc)
                    (procedure-arity-includes? proc 1))
-        (raise-type-error 'call-with-input-file* "procedure (arity 1)" path))
+        (raise-type-error 'call-with-input-file* "procedure (arity 1)" proc))
       (unless (memq mode '(binary text))
         (raise-type-error 'call-with-input-file* "'binary or 'text" mode))
       (let ([p (open-input-file path mode)])
@@ -129,7 +129,7 @@
         (raise-type-error 'call-with-output-file* "path or string" path))
       (unless (and (procedure? proc)
                    (procedure-arity-includes? proc 1))
-        (raise-type-error 'call-with-output-file* "procedure (arity 1)" path))
+        (raise-type-error 'call-with-output-file* "procedure (arity 1)" proc))
       (unless (memq mode '(binary text))
         (raise-type-error 'call-with-output-file* "'binary or 'text" mode))
       (unless (memq exists exists-syms)