From 2b10262258d0cf4636dcb4bbd26b01a512dff956 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 22 Dec 2015 11:02:54 -0700
Subject: [PATCH] get-module-suffixes: put "rkt" first

Putting "rkt" first in the list makes it likely to act as
a default, such as for a `put-file` dialog.
---
 racket/collects/compiler/module-suffix.rkt | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/racket/collects/compiler/module-suffix.rkt b/racket/collects/compiler/module-suffix.rkt
index f600ef7967..c89edcb07d 100644
--- a/racket/collects/compiler/module-suffix.rkt
+++ b/racket/collects/compiler/module-suffix.rkt
@@ -44,7 +44,14 @@
             (cond
              [(bytes? suffix) (hash-set ht suffix #t)]
              [else ht]))]))))
-  (sort (hash-keys ht) bytes<?))
+  (sort (hash-keys ht)
+        ;; Order ".rkt" before everything else, so that it
+        ;; tends to be the default:
+        (lambda (a b)
+          (cond
+           [(bytes=? #"rkt" a) #t]
+           [(bytes=? #"rkt" b) #f]
+           [else (bytes<? a b)]))))
 
 (define (get-module-suffix-regexp #:mode [key 'preferred]
                                   #:group [group 'all]