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

fixed bug

Browse Source 
original commit: 931a398e037a83e9f6ba87ca863f876de8b0d181
This commit is contained in:
Robby Findler 1996-07-21 23:28:18 +00:00
parent b04da72170
commit fba1252a85
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/mred/finder.ss
View File

@ -439,12 +439,14 @@
'common
'std))
(define put-file
(lambda ()
((case (mred:preferences:get-preference 'mred:file-dialogs)
[(std) std-put-file]
[(common) common-put-file]))))
(lambda args
(apply (case (mred:preferences:get-preference 'mred:file-dialogs)
[(std) std-put-file]
[(common) common-put-file])
args)))
(define get-file
(lambda ()
((case (mred:preferences:get-preference 'mred:file-dialogs)
[(std) std-get-file]
[(common) common-get-file]))))))
(lambda args
(apply (case (mred:preferences:get-preference 'mred:file-dialogs)
[(std) std-get-file]
[(common) common-get-file])
args)))))