suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco dist: fix for Unix GUI executables

Browse Source 
Merge to v6.0
(cherry picked from commit 790ae0705c)
This commit is contained in:
Matthew Flatt 2013-11-28 18:10:52 -07:00 committed by Ryan Culpepper
parent 0fb1d9ae87
commit 8c651d5ed2
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
racket/collects/compiler/distribute.rkt
View File

@ -176,19 +176,21 @@
(unless (directory-exists? lib-plt-dir) (unless (directory-exists? lib-plt-dir)
(make-directory lib-plt-dir)) (make-directory lib-plt-dir))
(let ([copy-bin (let ([copy-bin
(lambda (name variant) (lambda (name variant gr?)
(copy-file* (build-path (find-console-bin-dir) (copy-file* (build-path (if gr?
(find-lib-dir)
(find-console-bin-dir))
(format "~a~a" name (variant-suffix variant #f))) (format "~a~a" name (variant-suffix variant #f)))
(build-path lib-plt-dir (build-path lib-plt-dir
(format "~a~a-~a" name variant (version)))))]) (format "~a~a-~a" name variant (version)))))])
(when (memq 'racketcgc types) (when (memq 'racketcgc types)
(copy-bin "racket" 'cgc)) (copy-bin "racket" 'cgc #f))
(when (memq 'racket3m types) (when (memq 'racket3m types)
(copy-bin "racket" '3m)) (copy-bin "racket" '3m #f))
(when (memq 'gracketcgc types) (when (memq 'gracketcgc types)
(copy-bin "gracket" 'cgc)) (copy-bin "gracket" 'cgc #t))
(when (memq 'gracket3m types) (when (memq 'gracket3m types)
(copy-bin "gracket" '3m))) (copy-bin "gracket" '3m #t)))
(when (shared-libraries?) (when (shared-libraries?)
(when (or (memq 'racketcgc types) (when (or (memq 'racketcgc types)
(memq 'gracketcgc types)) (memq 'gracketcgc types))