From 135cce5b977b704db11ac6fa3738363666f03051 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 11 Apr 2014 19:18:03 +0200 Subject: [PATCH] added -existing- to error message to help programmers understand that they must specify the name of an existing file --- pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt | 2 +- 1 file changed, 1 insertion(+), 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 c60c6dc29b..dc6ce8dddb 100644 --- a/pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt @@ -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)