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

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

Browse Source 
svn: r14502
This commit is contained in:
Eli Barzilay 2009-04-14 02:08:05 +00:00
parent 9c93191241
commit 6b67f941fe
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/scheme.ss
View File

@ -1183,7 +1183,8 @@
(define/override (put-file text sup directory default-name) (define/override (put-file text sup directory default-name)
(parameterize ([finder:default-extension "ss"] (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 ;; don't call the surrogate's super, since it sets the default extension
(sup directory default-name))) (sup directory default-name)))