~ chicken-core (chicken-5) 932004b7d43e9df492de17189555fa4ed562d423
commit 932004b7d43e9df492de17189555fa4ed562d423
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Sat Jan 16 15:54:42 2016 +0100
Commit: Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Sun Jan 17 11:26:16 2016 -0200
Fix double quote wrapping of libs in csc.
Prefix should not wrap its argument in a call to "quotewrap", because
copy-libraries will use (target-lib-path), which will then be quoted,
passing it on to copy-files which will quote it once again.
This would break csc -deploy when copying libchicken.
Bug was introduced in edd4926bb4f4c97760a0e03b0d0e8210398fe967.
Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>
diff --git a/csc.scm b/csc.scm
index 844cf02c..c921a079 100644
--- a/csc.scm
+++ b/csc.scm
@@ -85,10 +85,9 @@
(define cross-chicken (##sys#fudge 39))
(define (prefix str dir default)
- (quotewrap
- (if chicken-prefix
- (make-pathname (list chicken-prefix dir) str)
- default) ))
+ (if chicken-prefix
+ (make-pathname (list chicken-prefix dir) str)
+ default) )
(define (back-slash->forward-slash path)
(if windows-shell
@@ -105,10 +104,11 @@
(prefix "" "share" (if host-mode INSTALL_SHARE_HOME TARGET_SHARE_HOME)))
(define translator
- (prefix "chicken" "bin"
- (make-pathname
- INSTALL_BIN_HOME
- CHICKEN_PROGRAM)))
+ (quotewrap
+ (prefix "chicken" "bin"
+ (make-pathname
+ INSTALL_BIN_HOME
+ CHICKEN_PROGRAM))))
(define compiler (quotewrap (if host-mode INSTALL_CC TARGET_CC)))
(define c++-compiler (quotewrap (if host-mode INSTALL_CXX TARGET_CXX)))
@@ -273,10 +273,11 @@
(conc " -Wl,-R"
(if deployed
"\\$ORIGIN"
- (prefix "" "lib"
- (if host-mode
- INSTALL_LIB_HOME
- TARGET_RUN_LIB_HOME))))))
+ (quotewrap
+ (prefix "" "lib"
+ (if host-mode
+ INSTALL_LIB_HOME
+ TARGET_RUN_LIB_HOME)))))))
(aix
(list (conc "-Wl,-R\"" library-dir "\"")))
(else
Trap