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

standard -> common

Browse Source 
svn: r3234
This commit is contained in:
Eli Barzilay 2006-06-05 18:51:46 +00:00
parent 425f9df4b0
commit c2c9a4ffc3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/filedialog.ss
View File

@ -38,8 +38,8 @@
(check-path/false who filename) (check-path/false who filename)
(check-string/false who extension) (check-string/false who extension)
(check-style who #f (cond (check-style who #f (cond
[dir? '(standard enter-packages)] [dir? '(common enter-packages)]
[else '(standard packages enter-packages)]) style) [else '(common packages enter-packages)]) style)
(unless (and (list? filters) (unless (and (list? filters)
(andmap (lambda (p) (andmap (lambda (p)
(and (list? p) (and (list? p)
@ -48,8 +48,8 @@
(string? (cadr p)))) (string? (cadr p))))
filters)) filters))
(raise-type-error who "list of 2-string lists" filters)) (raise-type-error who "list of 2-string lists" filters))
(let* ([std? (memq 'standard style)] (let* ([std? (memq 'common style)]
[style (if std? (remq 'standard style) style)]) [style (if std? (remq 'common style) style)])
(if (or std? (eq? (system-type) 'unix)) (if (or std? (eq? (system-type) 'unix))
(send (new path-dialog% (send (new path-dialog%
[put? put?] [put? put?]