added -existing- to error message to help programmers understand that they must specify the name of an existing file

This commit is contained in:
Matthias Felleisen 2014-04-11 19:18:03 +02:00
parent adac0b9138
commit 135cce5b97

View File

@ -257,7 +257,7 @@
(define (check-input-file f t)
(define d? (assq f *input-devices*))
(check-arg t (or (string? f) d?) (error-message (map car *input-devices*)) "first" f)
(check-arg t (or d? (file-exists? f)) "name of file in program's folder" "first" f))
(check-arg t (or d? (file-exists? f)) "name of existing file in program's folder" "first" f))
;; effect: ensure that f is a file in current directory or report error for t
(define (check-output-file f t)