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

added an exception catch

Browse Source 
svn: r8473
This commit is contained in:
Robby Findler 2008-01-30 05:16:52 +00:00
parent bc32b85ae4
commit 95f3915f6c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/private/frame.ss
View File

@ -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))))))