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

use cross-system-type for the mred installer

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-27 20:59:33 -06:00
parent 73065a3ba6
commit 79a3a9ebf8
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/info.rkt
View File

@ -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"

7
gui-lib/mred/installer.rkt
View File

@ -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