From 79a3a9ebf8d92ff55f0c34b6220597f76852660b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 27 Aug 2015 20:59:33 -0600
Subject: [PATCH] use `cross-system-type` for the `mred` installer

---
 gui-lib/info.rkt           | 2 +-
 gui-lib/mred/installer.rkt | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/gui-lib/info.rkt b/gui-lib/info.rkt
index db8dd6e8..4314be77 100644
--- a/gui-lib/info.rkt
+++ b/gui-lib/info.rkt
@@ -4,7 +4,7 @@
 
 (define deps '("srfi-lite-lib"
                "data-lib"
-               "base"
+               ["base" #:version "6.2.900.11"]
                "syntax-color-lib"
                ("draw-lib" #:version "1.6")
                "snip-lib"
diff --git a/gui-lib/mred/installer.rkt b/gui-lib/mred/installer.rkt
index 79272bc7..850968e0 100644
--- a/gui-lib/mred/installer.rkt
+++ b/gui-lib/mred/installer.rkt
@@ -2,7 +2,8 @@
 (require launcher 
          compiler/embed
          racket/file
-         racket/path)
+         racket/path
+         setup/cross-system)
 
 (provide post-installer)
 
@@ -11,7 +12,7 @@
 
 (define (post-installer path coll user?)
   (define variants (available-mred-variants))
-  (when (memq (system-type) mred-exe-systems)
+  (when (memq (cross-system-type) mred-exe-systems)
     (for ([v variants] #:when (memq v '(3m cgc)))
       (parameterize ([current-launcher-variant v])
         (create-embedding-executable
@@ -31,7 +32,7 @@
            (prep-dir (mred-program-launcher-path "mred-text" #:user? user?))
            `([relative? . ,(not user?)] [subsystem . console] [single-instance? . #f]))))))
   ;; add bin/mred script under OS X
-  (when (eq? 'macosx (system-type))
+  (when (eq? 'macosx (cross-system-type))
     (for ([v variants] #:when (memq v '(script-3m script-cgc)))
       (parameterize ([current-launcher-variant v])
         (make-gracket-launcher