From 66e6ffdff0740b52b232f3cd21ec0f524a34c202 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 16 Aug 1998 21:31:19 +0000 Subject: [PATCH] . original commit: 9dee3a104f7df3fa888bf0d69d373ac72b3b062d --- src/mred/wrap/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index 2b94879b..6ea376ef 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -3106,7 +3106,7 @@ [(message parent directory filename extension) (sel message parent directory filename extension null)] [(message parent directory filename extension style) (if (not (eq? (system-type) 'unix)) - (wx:file-selector message directory filename extension "*.*" (if put? '(put) '(get)) parent) + (wx:file-selector message directory filename extension "*.*" (if put? 'put 'get) parent) (letrec ([ok? #t] [typed-name #f] [dir (or directory (current-directory))]