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

fix error message again after consulting with SK

Browse Source
This commit is contained in:
Matthias Felleisen 2014-04-12 08:55:55 -04:00
parent 135cce5b97
commit f3a75d1ab0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/htdp-pkgs/htdp-lib/2htdp/batch-io.rkt
View File

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