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

Probably PR 9294

Browse Source 
svn: r10618

original commit: 46106fb92193748b2993fc87942166d29b7c92a0
This commit is contained in:
Robby Findler 2008-07-05 14:17:56 +00:00
parent ebed61f4d6
commit 50207ac5c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1019,7 +1019,7 @@
(define/override (editing-this-file? filename) (define/override (editing-this-file? filename)
(let ([path-equal? (let ([path-equal?
(λ (x y) (λ (x y)
(with-handlers ((exn:fail:filesystem? (λ (x) #f))) (with-handlers ((exn:fail? (λ (x) #f)))
(equal? (normal-case-path (normalize-path x)) (equal? (normal-case-path (normalize-path x))
(normal-case-path (normalize-path y)))))]) (normal-case-path (normalize-path y)))))])
(let ([this-fn (get-filename)]) (let ([this-fn (get-filename)])