Eliminate handlers around zo deletion.

original commit: b10d95d60e5dc49798f49a54f761ee4794a696ad
2003-11-23 21:00:32 +00:00 · 2003-11-23 21:00:32 +00:00 · eb6f82b41e
commit eb6f82b41e
parent ae8bbc2512
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/cm.ss
+++ b/collects/mzlib/cm.ss
@ -75,7 +75,7 @@
        (cond
         [(and (file-exists? zo-name) (trust-existing-zos)) (touch zo-name)]
         [else
-          (with-handlers ([not-break-exn? void]) (delete-file zo-name))
+          (when (file-exists? zo-name) (delete-file zo-name))
          (with-handlers ([exn:get-module-code?
                           (lambda (ex)
                             (compilation-failure