From 6b67f941fecab1b1596482a62a3f16f65c7fd3a0 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 14 Apr 2009 02:08:05 +0000 Subject: [PATCH] use .ss suffix, both .scm and .ss for the filters, and a descriptive name svn: r14502 --- collects/framework/private/scheme.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 30920fb9bd..3535effdb5 100644 --- 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)))