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

...

Browse Source 
original commit: 0e216fe7743fcc2a356a8ea6b2ca7d738c1dbad7
This commit is contained in:
Robby Findler 2000-04-03 16:32:09 +00:00
parent 3b2c376f3a
commit 545be9170d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/finder.ss
View File

@ -700,7 +700,7 @@
directory
name
(default-extension))])
(if (or (not f)
(and filter
(not (filter-match? filter
@ -729,6 +729,7 @@
prompt
parent-win
directory)])
(if f
(if (or (not filter) (filter-match? filter f filter-msg))
(let ([f (mzlib:file:normalize-path f)])