From a1a63c0e081685e0589e4bd4602640ec16b32c65 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 9 May 2010 15:06:25 -0600
Subject: [PATCH] move drscheme and tests/drscheme to drracket and
 tests/drracket

original commit: ed1d7f81c922c814b8c0657dd952abf4b9c75cdc
---
 collects/framework/private/scheme.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt
index 96c002c0..f704fde9 100644
--- a/collects/framework/private/scheme.rkt
+++ b/collects/framework/private/scheme.rkt
@@ -1186,7 +1186,7 @@
            (values lexeme type paren start end backup-delta mode)))))
     
     (define/override (put-file text sup directory default-name)
-      (parameterize ([finder:default-extension "ss"]
+      (parameterize ([finder:default-extension "rkt"]
                      [finder:default-filters '(["Racket Sources" "*.rkt;*.ss;*.scm"]
                                                ["Any" "*.*"])])
         ;; don't call the surrogate's super, since it sets the default extension