From 510546102a97a5a5ab5cd6c0cd38628253bdc062 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Sep 2006 02:17:37 +0000
Subject: [PATCH] error when -k file doesn't exist

svn: r4402
---
 collects/compiler/start.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/compiler/start.ss b/collects/compiler/start.ss
index 996042f5a6..10468229b3 100644
--- 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)