suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed error messages

Browse Source 
svn: r8611
This commit is contained in:
Eli Barzilay 2008-02-10 06:19:58 +00:00
parent 2c99aaa75c
commit ae087c18b6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scheme/private/kw-file.ss
View File

@ -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)