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" (define deps '("srfi-lite-lib"
"data-lib" "data-lib"
"base" ["base" #:version "6.2.900.11"]
"syntax-color-lib" "syntax-color-lib"
("draw-lib" #:version "1.6") ("draw-lib" #:version "1.6")
"snip-lib" "snip-lib"

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

@ -2,7 +2,8 @@
(require launcher (require launcher
compiler/embed compiler/embed
racket/file racket/file
racket/path) racket/path
setup/cross-system)
(provide post-installer) (provide post-installer)
@ -11,7 +12,7 @@
(define (post-installer path coll user?) (define (post-installer path coll user?)
(define variants (available-mred-variants)) (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))) (for ([v variants] #:when (memq v '(3m cgc)))
(parameterize ([current-launcher-variant v]) (parameterize ([current-launcher-variant v])
(create-embedding-executable (create-embedding-executable
@ -31,7 +32,7 @@
(prep-dir (mred-program-launcher-path "mred-text" #:user? user?)) (prep-dir (mred-program-launcher-path "mred-text" #:user? user?))
`([relative? . ,(not user?)] [subsystem . console] [single-instance? . #f])))))) `([relative? . ,(not user?)] [subsystem . console] [single-instance? . #f]))))))
;; add bin/mred script under OS X ;; 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))) (for ([v variants] #:when (memq v '(script-3m script-cgc)))
(parameterize ([current-launcher-variant v]) (parameterize ([current-launcher-variant v])
(make-gracket-launcher (make-gracket-launcher