always use -L instead of absolute paths in launchers (when possible)

svn: r3004
This commit is contained in:
Eli Barzilay 2006-05-22 04:05:06 +00:00
parent eb6fe21556
commit 3a0c7e81e5
2 changed files with 6 additions and 9 deletions

View File

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

View File

@ -773,11 +773,8 @@
(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
;; avoid cygwin bug):
(list "-qmvL-" mzll (path->string (car (cc-collection cc))))
(list "-qmvt-" (format "~a" (path->string (build-path (cc-path cc) mzll)))))) (list "-qmvt-" (format "~a" (path->string (build-path (cc-path cc) mzll))))))
p p
aux)))) aux))))