From eb6f82b41eb7107c4104e1292ff3bb7a3f3d3873 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sun, 23 Nov 2003 21:00:32 +0000
Subject: [PATCH] Eliminate handlers around zo deletion.

original commit: b10d95d60e5dc49798f49a54f761ee4794a696ad
---
 collects/mzlib/cm.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss
index d88dd46..3ed5f5c 100644
--- 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