~ chicken-core (chicken-5) d921c0459c165b091b3d48d81d37ffa33ea1e237
commit d921c0459c165b091b3d48d81d37ffa33ea1e237 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Tue Sep 7 10:12:36 2021 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Thu Sep 9 11:03:00 2021 +0200 Ensure platform identifier is used when determining install command for files on windows Previously the defaults from chicken-config.h where used, but depending on the shell used during installation, this may be a UNIX command if the MSYS shell was used. Thanks to Mark Fisher for his tremendous help in fixing this bug. Signed-off-by: Mario Domenech Goulart <mario@parenteses.org> diff --git a/egg-compile.scm b/egg-compile.scm index 205505a6..dd2e8103 100644 --- a/egg-compile.scm +++ b/egg-compile.scm @@ -80,18 +80,29 @@ ((unix) "cp -r") ((windows) "xcopy /y /i /e"))) +(define (copy-file-command platform) + (case platform + ((unix) "cp") + ((windows) "copy /y"))) + (define (mkdir-command platform) (case platform ((unix) "mkdir -p") ((windows) "mkdir"))) (define (install-executable-command platform) - (string-append default-install-program " " - default-install-program-executable-flags)) + (case platform + ((windows) (copy-file-command 'windows)) + (else + (string-append default-install-program " " + default-install-program-executable-flags)))) (define (install-file-command platform) - (string-append default-install-program " " - default-install-program-data-flags)) + (case platform + ((windows) (copy-file-command 'windows)) + (else + (string-append default-install-program " " + default-install-program-data-flags)))) (define (remove-file-command platform) (case platform diff --git a/manual/Acknowledgements b/manual/Acknowledgements index 0489a0eb..fcaaa92f 100644 --- a/manual/Acknowledgements +++ b/manual/Acknowledgements @@ -17,7 +17,7 @@ Forero Cuervo, Peter Danenberg, Linh Dang, Brian Denheyer, Sean D'Epagnier, "dgym", "Don", Chris Double, "Brown Dragon", David Dreisigmeyer, Jarod Eells, Petter Egesund, Stephen Eilert, Steve Elkins, Daniel B. Faken, Erik Falor, Will Farr, Graham Fawcett, Marc -Feeley, "Fizzie", Matthew Flatt, Kimura Fuyuki, Tony Garnock-Jones, +Feeley, Mark Fisher, "Fizzie", Matthew Flatt, Kimura Fuyuki, Tony Garnock-Jones, Martin Gasbichler, Abdulaziz Ghuloum, Joey Gibson, Stephen C. Gilardi, Mario Domenech Goulart, Joshua Griffith, Johannes Groedem, Damian Gryski, Matt Gushee, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiroTrap