use .ss suffix, both .scm and .ss for the filters, and a descriptive name

svn: r14502 original commit: 6b67f941fecab1b1596482a62a3f16f65c7fd3a0
2009-04-14 02:08:05 +00:00 · 2009-04-14 02:08:05 +00:00 · cece9d5dc9
commit cece9d5dc9
parent 27a4afa78c
1 changed files with 2 additions and 1 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -1183,7 +1183,8 @@
    
    (define/override (put-file text sup directory default-name)
      (parameterize ([finder:default-extension "ss"]
-                     [finder:default-filters '(("SCM" "*.scm") ("Any" "*.*"))])
+                     [finder:default-filters '(["Scheme Sources" "*.ss;*.scm"]
+                                               ["Any" "*.*"])])
        ;; don't call the surrogate's super, since it sets the default extension
        (sup directory default-name)))