always use -L instead of absolute paths in launchers (when possible)
svn: r3004
This commit is contained in:
parent
eb6fe21556
commit
3a0c7e81e5
|
@ -70,12 +70,12 @@ Additional "info.ss" fields trigger additional setup actions:
|
||||||
must be provided by `mzscheme-launcher-libraries' or
|
must be provided by `mzscheme-launcher-libraries' or
|
||||||
`mzscheme-launcher-flags' (see below). For each name, a launching
|
`mzscheme-launcher-flags' (see below). For each name, a launching
|
||||||
executable is set up using the launcher collection's
|
executable is set up using the launcher collection's
|
||||||
`make-mzscheme-launcher'. The arguments are "-mve-" and
|
`make-mzscheme-launcher'. The arguments are "-qmvL-" and
|
||||||
|
|
||||||
(format "~s" `(require (lib <file> <colls> ...)))
|
"<file>" "<colls>/..."
|
||||||
|
|
||||||
where lib is the file named by `mzscheme-launcher-libraries'
|
where lib is the file named by `mzscheme-launcher-libraries'
|
||||||
and <colls> ... are the collections (and subcollections)
|
and "<colls>/..." are the collections (and subcollections)
|
||||||
of the info.ss file. In addition,
|
of the info.ss file. In addition,
|
||||||
|
|
||||||
(build-aux-from-path
|
(build-aux-from-path
|
||||||
|
|
|
@ -773,12 +773,9 @@
|
||||||
(path->string p))
|
(path->string p))
|
||||||
(make-launcher
|
(make-launcher
|
||||||
(or mzlf
|
(or mzlf
|
||||||
(if (and (cc-collection cc)
|
(if (cc-collection cc)
|
||||||
(= 1 (length (cc-collection cc))))
|
(list "-qmvL-" mzll (path->string (apply build-path (cc-collection cc))))
|
||||||
;; Common case (simpler parsing for Windows to
|
(list "-qmvt-" (format "~a" (path->string (build-path (cc-path cc) mzll))))))
|
||||||
;; avoid cygwin bug):
|
|
||||||
(list "-qmvL-" mzll (path->string (car (cc-collection cc))))
|
|
||||||
(list "-qmvt-" (format "~a" (path->string (build-path (cc-path cc) mzll))))))
|
|
||||||
p
|
p
|
||||||
aux))))
|
aux))))
|
||||||
mzlns
|
mzlns
|
||||||
|
|
Loading…
Reference in New Issue
Block a user