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

normalize-path can raise non-exn:fail:filesystem? exceptions

Browse Source 
when this function should still be returning #f (and not
raising an exn)
This commit is contained in:
Robby Findler 2013-08-27 15:51:00 -05:00
parent 7a272208cb
commit 9b99dc2a25
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt
View File

@ -3161,7 +3161,7 @@
(set-visible-regions interactions-text vi)))
(define/private (pathname-equal? p1 p2)
(with-handlers ([exn:fail:filesystem? (λ (x) #f)])
(with-handlers ([exn:fail? (λ (x) #f)])
(string=? (path->string (normal-case-path (normalize-path p1)))
(path->string (normal-case-path (normalize-path p2))))))