~ chicken-core (chicken-5) bd890d47b76dff389ec2eb67a19ab2a09dd7aca2

commit bd890d47b76dff389ec2eb67a19ab2a09dd7aca2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Apr 19 16:00:15 2020 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Apr 19 16:00:15 2020 +0200

    Drop removal if binary files when installing on UNNIX systems.
    
    (This patch is orginally from Mario Goulart, see #1686)
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/egg-compile.scm b/egg-compile.scm
index 4a72d5d0..f6de778c 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -940,7 +940,6 @@
                                     output-file)
          srcdir platform)
   (let* ((cmd (install-executable-command platform))
-         (dcmd (remove-file-command platform))
          (mkdir (mkdir-command platform))
          (sname (prefix srcdir name))
          (out (qs* (target-file (conc sname ext) mode) platform #t))
@@ -949,8 +948,6 @@
          (ddir (shell-variable "DESTDIR" platform))
          (destf (qs* (conc dest "/" output-file ext) platform #t)))
     (print "\n" mkdir " " ddir dfile)
-    (when (eq? platform 'unix)
-      (print dcmd " " ddir destf))
     (print cmd " " out " " ddir destf)
     (print-end-command platform)))
 
@@ -1005,7 +1002,6 @@
 
 (define ((install-program name #!key mode output-file) srcdir platform)
   (let* ((cmd (install-executable-command platform))
-         (dcmd (remove-file-command platform))
          (mkdir (mkdir-command platform))
          (ext (executable-extension platform))
          (sname (prefix srcdir name))
@@ -1017,8 +1013,6 @@
          (ddir (shell-variable "DESTDIR" platform))
          (destf (qs* (conc dest "/" output-file ext) platform #t)))
     (print "\n" mkdir " " ddir dfile)
-    (when (eq? platform 'unix)
-      (print dcmd " " ddir destf))
     (print cmd " " out " " ddir destf)
     (print-end-command platform)))