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

View File

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