From 8c651d5ed2dd16082bc6f56887da9e7218e5ed2b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 28 Nov 2013 18:10:52 -0700 Subject: [PATCH] raco dist: fix for Unix GUI executables Merge to v6.0 (cherry picked from commit 790ae0705ca85e260126164b9b7ba2f3b2653706) --- racket/collects/compiler/distribute.rkt | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/racket/collects/compiler/distribute.rkt b/racket/collects/compiler/distribute.rkt index 266a893982..9578ca6e9d 100644 --- a/racket/collects/compiler/distribute.rkt +++ b/racket/collects/compiler/distribute.rkt @@ -176,19 +176,21 @@ (unless (directory-exists? lib-plt-dir) (make-directory lib-plt-dir)) (let ([copy-bin - (lambda (name variant) - (copy-file* (build-path (find-console-bin-dir) + (lambda (name variant gr?) + (copy-file* (build-path (if gr? + (find-lib-dir) + (find-console-bin-dir)) (format "~a~a" name (variant-suffix variant #f))) (build-path lib-plt-dir (format "~a~a-~a" name variant (version)))))]) (when (memq 'racketcgc types) - (copy-bin "racket" 'cgc)) + (copy-bin "racket" 'cgc #f)) (when (memq 'racket3m types) - (copy-bin "racket" '3m)) + (copy-bin "racket" '3m #f)) (when (memq 'gracketcgc types) - (copy-bin "gracket" 'cgc)) + (copy-bin "gracket" 'cgc #t)) (when (memq 'gracket3m types) - (copy-bin "gracket" '3m))) + (copy-bin "gracket" '3m #t))) (when (shared-libraries?) (when (or (memq 'racketcgc types) (memq 'gracketcgc types))