From fba1252a85cad54ecd064d0a20d57de8b6e1fb79 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 21 Jul 1996 23:28:18 +0000 Subject: [PATCH] fixed bug original commit: 931a398e037a83e9f6ba87ca863f876de8b0d181 --- collects/mred/finder.ss | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss index e085d292..d129f306 100644 --- a/collects/mred/finder.ss +++ b/collects/mred/finder.ss @@ -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)))))