From 9b99dc2a25bc5d0867cc3c649ad688bc893b6a97 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 27 Aug 2013 15:51:00 -0500 Subject: [PATCH] normalize-path can raise non-exn:fail:filesystem? exceptions when this function should still be returning #f (and not raising an exn) --- pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt index eb83e90f78..73c815b2fd 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/unit.rkt @@ -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))))))