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

.

Browse Source 
original commit: f708986b62bd985f20ff45308812acef37a6669c
This commit is contained in:
Matthew Flatt 2000-06-23 22:18:30 +00:00
parent c969fceda2
commit ddf061a34c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -4793,7 +4793,7 @@
(let ([s (wx:file-selector message directory filename extension "*.*" (let ([s (wx:file-selector message directory filename extension "*.*"
(if put? 'put (if multi? 'multi 'get)) (if put? 'put (if multi? 'multi 'get))
(mred->wx parent))]) (mred->wx parent))])
(if multi? (if (and multi? s)
(files->list s) (files->list s)
s)) s))
(letrec ([ok? #f] (letrec ([ok? #f]