From dceffd7feebd94dade3d40bc3f0e63b0f7c48ccd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Nov 2010 07:12:03 -0700 Subject: [PATCH] cocoa: fix save-file dialog when other extensions should be allowed original commit: 83bcdbbd8122c688f02685d212daa621b86a6174 --- collects/mred/private/wx/cocoa/filedialog.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/mred/private/wx/cocoa/filedialog.rkt b/collects/mred/private/wx/cocoa/filedialog.rkt index 00e124e4..22d161ac 100644 --- a/collects/mred/private/wx/cocoa/filedialog.rkt +++ b/collects/mred/private/wx/cocoa/filedialog.rkt @@ -42,10 +42,10 @@ arrayWithObjects: #:type (_list i _NSString) extensions count: #:type _NSUInteger (length extensions))]) (tellv ns setAllowedFileTypes: a)))) - (when (not (ormap (lambda (e) - (equal? (cadr e) "*.*")) - filters)) - (tellv ns setAllowsOtherFileTypes: #:type _BOOL #f)) + (let ([others? (ormap (lambda (e) + (equal? (cadr e) "*.*")) + filters)]) + (tellv ns setAllowsOtherFileTypes: #:type _BOOL others?)) (cond [(memq 'multi style)