From 3d5e933d9e9afc3901035ff1b254dcbe68bae0ae Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 27 Apr 2010 06:18:32 -0600
Subject: [PATCH] .rkt extension in DrRacket exe

---
 collects/drscheme/drscheme.filetypes  |  2 +-
 collects/drscheme/drscheme.utiexports | 11 ++++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/collects/drscheme/drscheme.filetypes b/collects/drscheme/drscheme.filetypes
index 84fef4d6cc..c46c751c7c 100644
--- a/collects/drscheme/drscheme.filetypes
+++ b/collects/drscheme/drscheme.filetypes
@@ -7,7 +7,7 @@
   ("CFBundleTypeOSTypes"
    (array "TEXT" "WXME"))
   ("CFBundleTypeExtensions"
-   (array "scm" "ss")))
+   (array "rkt" "scm" "ss")))
  (("CFBundleTypeName"
    "Package")
   ("CFBundleTypeIconFile"
diff --git a/collects/drscheme/drscheme.utiexports b/collects/drscheme/drscheme.utiexports
index 9b683ad7fc..fb64a67946 100644
--- a/collects/drscheme/drscheme.utiexports
+++ b/collects/drscheme/drscheme.utiexports
@@ -3,24 +3,25 @@
     "public.text"
     "public.plain-text"))
   ("UTTypeDescription"
-   "PLT Scheme program source")
+   "Racket program source")
   ("UTTypeIdentifier"
-   "org.plt-scheme.source")
+   "org.racket-lang.source")
   ("UTTypeTagSpecification"
    (dict
     (assoc-pair "com.apple.ostype"
                 "TEXT")
     (assoc-pair "public.filename-extension"
-                (array "ss"
+                (array "rkt"
+                       "ss"
                        "scm")))))
  (("UTTypeConformsTo"
     (array
      "public.text"
      "public.plain-text"))
    ("UTTypeDescription"
-    "PLT Scheme documentation source")
+    "Racket documentation source")
    ("UTTypeIdentifier"
-    "org.plt-scheme.scribble")
+    "org.racket-lang.scribble")
    ("UTTypeTagSpecification"
     (dict
      (assoc-pair "com.apple.ostype"