From 138088ce9ad2040351147631a7f2c912a1c4604e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 24 Mar 2017 16:07:38 -0600
Subject: [PATCH] install `{gracket,mred}-text` as a console application

Requesting console mode matters when 'gui-bin-dir is configured.
---
 gui-lib/mred/installer.rkt       | 13 ++++++++++---
 gui-lib/racket/gui/installer.rkt |  5 ++++-
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/gui-lib/mred/installer.rkt b/gui-lib/mred/installer.rkt
index a3e17b05..5c9dcf8a 100644
--- a/gui-lib/mred/installer.rkt
+++ b/gui-lib/mred/installer.rkt
@@ -26,7 +26,9 @@
     (for ([v variants] #:when (memq v '(3m cgc)))
       (parameterize ([current-launcher-variant v])
         (create-embedding-executable
-         (prep-dir (mred-program-launcher-path "MrEd" #:user? user? #:tethered? tethered?))
+         (prep-dir (mred-program-launcher-path "MrEd"
+                                               #:user? user?
+                                               #:tethered? tethered?))
          #:cmdline (append
                     (if tethered? (if user? (addon-flags) (config-flags)) null)
                     '("-I" "scheme/gui/init"))
@@ -43,7 +45,10 @@
           (make-gracket-launcher
            #:tether-mode tether-mode
            '("-I" "scheme/gui/init" "-z")
-           (prep-dir (mred-program-launcher-path "mred-text" #:user? user? #:tethered? tethered?))
+           (prep-dir (mred-program-launcher-path "mred-text"
+                                                 #:user? user?
+                                                 #:tethered? tethered?
+                                                 #:console? #t))
            `([relative? . ,(not (or user? tethered?))]
              [subsystem . console]
              [single-instance? . #f]))))))
@@ -54,7 +59,9 @@
         (make-gracket-launcher
          #:tether-mode tether-mode
          null
-         (prep-dir (mred-program-launcher-path "MrEd" #:user? user? #:tethered? tethered?))
+         (prep-dir (mred-program-launcher-path "MrEd"
+                                               #:user? user?
+                                               #:tethered? tethered?))
          `([exe-name . "GRacket"]
            [relative? . ,(not (or user? tethered?))]
            [exe-is-gracket . #t]))))))
diff --git a/gui-lib/racket/gui/installer.rkt b/gui-lib/racket/gui/installer.rkt
index 55993a52..000d7038 100644
--- a/gui-lib/racket/gui/installer.rkt
+++ b/gui-lib/racket/gui/installer.rkt
@@ -27,7 +27,10 @@
            #:tether-mode tether-mode
            '("-z")
            (prep-dir
-            (mred-program-launcher-path "gracket-text" #:user? user? #:tethered? tethered?))
+            (mred-program-launcher-path "gracket-text"
+                                        #:user? user?
+                                        #:tethered? tethered?
+                                        #:console? #t))
            `([subsystem . console]
              [single-instance? . #f]
              [relative? . ,(not (or user? tethered?))]))))))