suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a with-handlers to avoid catching break exns

Browse Source
This commit is contained in:
Robby Findler 2013-03-05 22:21:41 -06:00
parent 007d18d145
commit c7810ba2ae
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/group.rkt
View File

@ -238,7 +238,7 @@
(define/public (locate-file name) (define/public (locate-file name)
(let* ([normalized (let* ([normalized
;; allow for the possibility of filenames that are urls ;; allow for the possibility of filenames that are urls
(with-handlers ([(λ (x) #t) (with-handlers ([exn:fail?
(λ (x) name)]) (λ (x) name)])
(normal-case-path (normal-case-path
(normalize-path name)))] (normalize-path name)))]