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
|
||||
`mzscheme-launcher-flags' (see below). For each name, a launching
|
||||
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'
|
||||
and <colls> ... are the collections (and subcollections)
|
||||
and "<colls>/..." are the collections (and subcollections)
|
||||
of the info.ss file. In addition,
|
||||
|
||||
(build-aux-from-path
|
||||
|
|
|
@ -773,12 +773,9 @@
|
|||
(path->string p))
|
||||
(make-launcher
|
||||
(or mzlf
|
||||
(if (and (cc-collection cc)
|
||||
(= 1 (length (cc-collection cc))))
|
||||
;; Common case (simpler parsing for Windows to
|
||||
;; avoid cygwin bug):
|
||||
(list "-qmvL-" mzll (path->string (car (cc-collection cc))))
|
||||
(list "-qmvt-" (format "~a" (path->string (build-path (cc-path cc) mzll))))))
|
||||
(if (cc-collection cc)
|
||||
(list "-qmvL-" mzll (path->string (apply build-path (cc-collection cc))))
|
||||
(list "-qmvt-" (format "~a" (path->string (build-path (cc-path cc) mzll))))))
|
||||
p
|
||||
aux))))
|
||||
mzlns
|
||||
|
|
Loading…
Reference in New Issue
Block a user