error when -k file doesn't exist

svn: r4402
2006-09-21 02:17:37 +00:00 · 2006-09-21 02:17:37 +00:00 · 510546102a
commit 510546102a
parent 6bf106f785
1 changed files with 2 additions and 0 deletions
--- a/collects/compiler/start.ss
+++ b/collects/compiler/start.ss
@ -476,6 +476,8 @@
 			     (set! did-one? #t)
 			     (printf "  making ~s~n" (path->string p)))])
 	   (map (lambda (file)
+		  (unless (file-exists? file)
+		    (error 'mzc "file does not exist: ~a" file))
 		  (set! did-one? #f)
 		  (let ([name (extract-base-filename/ss file 'mzc)])
 		    (printf "\"~a\":~n" file)