fix a with-handlers to avoid catching break exns

2013-03-05 22:21:41 -06:00 · 2013-03-05 22:21:41 -06:00 · c7810ba2ae
commit c7810ba2ae
parent 007d18d145
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)))]