From c2c9a4ffc3f52311b3dd451da255bb5216fa5e6e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 5 Jun 2006 18:51:46 +0000 Subject: [PATCH] standard -> common svn: r3234 --- collects/mred/private/filedialog.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/mred/private/filedialog.ss b/collects/mred/private/filedialog.ss index e9ea8ff9e0..25a4efc12b 100644 --- a/collects/mred/private/filedialog.ss +++ b/collects/mred/private/filedialog.ss @@ -38,8 +38,8 @@ (check-path/false who filename) (check-string/false who extension) (check-style who #f (cond - [dir? '(standard enter-packages)] - [else '(standard packages enter-packages)]) style) + [dir? '(common enter-packages)] + [else '(common packages enter-packages)]) style) (unless (and (list? filters) (andmap (lambda (p) (and (list? p) @@ -48,8 +48,8 @@ (string? (cadr p)))) filters)) (raise-type-error who "list of 2-string lists" filters)) - (let* ([std? (memq 'standard style)] - [style (if std? (remq 'standard style) style)]) + (let* ([std? (memq 'common style)] + [style (if std? (remq 'common style) style)]) (if (or std? (eq? (system-type) 'unix)) (send (new path-dialog% [put? put?]