From f3a75d1ab06241915382a6f5af898420115f058b Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sat, 12 Apr 2014 08:55:55 -0400 Subject: [PATCH] fix error message again after consulting with SK --- pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt b/pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt index dc6ce8dddb..25f9512357 100644 --- a/pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt @@ -257,7 +257,12 @@ (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 existing file in program's folder" "first" f)) +;; --------------------------------------------------------------------------------------------------- + (unless (or d? (file-exists? f)) + (error t "file ~s not found in ~s [the program's folder]" + f + (path->string (current-directory)))) + f) ;; effect: ensure that f is a file in current directory or report error for t (define (check-output-file f t)