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

...

Browse Source 
original commit: 0982fcec3ea62a8bbd1c67841a95e94a24310b4c
This commit is contained in:
Robby Findler 2000-02-13 14:54:46 +00:00
parent 0e93e665c5
commit 6139674364
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/group.ss
View File

@ -198,7 +198,8 @@
;; allow for the possiblity of filenames that are urls
(with-handlers ([(lambda (x) #t)
(lambda (x) name)])
(mzlib:file:normalize-path name))]
(normal-case-path
(mzlib:file:normalize-path name)))]
[test-frame
(lambda (frame)
(and (is-a? frame frame:editor<%>)
@ -208,8 +209,9 @@
(string=? normalized
(with-handlers ([(lambda (x) #t)
(lambda (x) filename)])
(mzlib:file:normalize-path
filename)))))))])
(normal-case-path
(mzlib:file:normalize-path
filename))))))))])
(let loop ([frames frames])
(cond
[(null? frames) #f]