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

avoid full paths to dlls

Browse Source 
svn: r11182
This commit is contained in:
Eli Barzilay 2008-08-11 15:00:45 +00:00
parent 790a5ad30d
commit 4030ac05a5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/installer.ss
View File

@ -13,11 +13,15 @@
(make-mred-launcher (make-mred-launcher
'("-z") '("-z")
(mred-program-launcher-path "mred-text") (mred-program-launcher-path "mred-text")
'([relative? . #t] [subsystem . console] [single-instance? . #f])))))) '([relative? . #t] [subsystem . console] [single-instance? . #f]
;; the following two are required to avoid using a full path,
;; should be removed when `relative?' will imply this
[framework-root . #f] [dll-dir . #f]))))))
;; add a bin/mred script under OS X ;; add a bin/mred script under OS X
(when (eq? 'macosx (system-type)) (when (eq? 'macosx (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-mred-launcher null (make-mred-launcher null
(mred-program-launcher-path "MrEd") (mred-program-launcher-path "MrEd")
'([exe-name . "MrEd"] [relative? . #t])))))) '([exe-name . "MrEd"] [relative? . #t]
[framework-root . #f] [dll-dir . #f]))))))