fix a with-handlers to avoid catching break exns

original commit: c7810ba2aeb5588707c1dfc39962a89b529b0e80
2013-03-05 22:21:41 -06:00 · 2013-03-05 22:21:41 -06:00 · 3bdf5e116d
commit 3bdf5e116d
parent 2c493915e4
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/group.rkt
+++ b/collects/framework/private/group.rkt
@ -238,7 +238,7 @@
      (define/public (locate-file name)
        (let* ([normalized
                ;; allow for the possibility of filenames that are urls
-                (with-handlers ([(λ (x) #t)
+                (with-handlers ([exn:fail?
                                 (λ (x) name)])
                  (normal-case-path
                   (normalize-path name)))]