From 95f3915f6cfe917420a8d87b5c52db2fe8b32dda Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 30 Jan 2008 05:16:52 +0000 Subject: [PATCH] added an exception catch svn: r8473 --- collects/framework/private/frame.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 6e081a7411..3ee36437ac 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1018,8 +1018,9 @@ (define/override (editing-this-file? filename) (let ([path-equal? (λ (x y) - (equal? (normal-case-path (normalize-path x)) - (normal-case-path (normalize-path y))))]) + (with-handlers ((exn:fail:filesystem? (λ (x) #f))) + (equal? (normal-case-path (normalize-path x)) + (normal-case-path (normalize-path y)))))]) (let ([this-fn (get-filename)]) (and this-fn (path-equal? filename (get-filename))))))