~ chicken-core (chicken-5) 68cab8d13c919ae823a64020b830423bb4133ae1
commit 68cab8d13c919ae823a64020b830423bb4133ae1
Merge: a9eed487 81c46e5f
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Apr 12 13:22:36 2017 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Wed Apr 12 13:22:36 2017 +0200
Merge remote-tracking branch 'origin/windows-fix' into chicken-5-new-egg-install
diff --cc egg-compile.scm
index 1c38ab0b,d56439f8..ba277b7f
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@@ -513,21 -497,19 +513,21 @@@
(ext (object-extension platform))
(sname (prefix srcdir name))
(out (quotearg (target-file (conc sname ext) mode)))
- (outlnk (quotearg (target-file (conc sname ".link") mode)))
+ (outlnk (quotearg (conc sname +link-file-extension+)))
(dest (destination-repository mode))
- (dfile (quotearg dest))
+ (dfile (quotearg (slashify dest platform)))
(ddir (shell-variable "DESTDIR" platform)))
(print "\n" mkdir " " ddir dfile)
- (print cmd " " out " " ddir (quotearg (slashify (conc dest "/"
- output-file
- ext)
- platform)))
- (print cmd " " outlnk " " ddir (quotearg (slashify (conc dest "/"
- output-file
- ".link")
- platform)))))
+ (print cmd " " out " " ddir
+ (quotearg (slashify (conc dest "/"
+ output-file
+ ext)
+ platform)))
+ (print cmd " " outlnk " " ddir
+ (quotearg (slashify (conc dest "/"
+ output-file
+ +link-file-extension+)
+ platform)))))
(define ((install-dynamic-extension name #!key mode (ext ".so")
output-file)
Trap