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

added an exception catch

Browse Source 
svn: r8473

original commit: 95f3915f6cfe917420a8d87b5c52db2fe8b32dda
This commit is contained in:
Robby Findler 2008-01-30 05:16:52 +00:00
parent 7052a0cd36
commit 13681c49c5
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))))))