skip files that don't exist and let the original compilation handler take care of them

svn: r15658
2009-08-01 17:54:43 +00:00 · 2009-08-01 17:54:43 +00:00 · 2da5e8c633
commit 2da5e8c633
parent a3cb24d195
1 changed files with 2 additions and 0 deletions
--- a/collects/compiler/cm.ss
+++ b/collects/compiler/cm.ss
@ -311,6 +311,8 @@
    (define (compilation-manager-load-handler path mod-name)
      (cond [(not mod-name)
             (trace-printf "skipping:  ~a mod-name ~s" path mod-name)]
+            [(not (file-exists? path))
+             (trace-printf "skipping:  ~a file does not exist" path)]
            [(or (null? (use-compiled-file-paths))
                 (not (equal? (car modes)
                              (car (use-compiled-file-paths)))))