~ chicken-core (chicken-5) 360e1c423b5475fa2c1caba1f19d652538a8f322

commit 360e1c423b5475fa2c1caba1f19d652538a8f322
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Mon Oct 31 13:06:26 2022 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Oct 31 15:01:11 2022 +0100

    Do not double call normalize-destination on share dir
    
    In install-random-files, don't call normalize-destination on the
    destination directory - this is already done in compile-egg-info
    
    Before, we'd see things like in the install script like:
      mkdir -p /path/to/chicken/path/to/chicken/share
    With this patch, it becomes:
      mkdir -p /path/to/chicken/share
    which is as it should be.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/egg-compile.scm b/egg-compile.scm
index 23af8b4e..272dbbb2 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -1044,7 +1044,7 @@
          (root (string-append srcdir "/"))
          (mkdir (mkdir-command platform))
          (sfiles (map (cut prefix srcdir <>) files))
-         (dfile (qs* (normalize-destination dest mode) platform #t))
+         (dfile (qs* dest platform #t))
          (ddir (shell-variable "DESTDIR" platform)))
     (print "\n" mkdir " " ddir dfile)
     (let-values (((ds fs) (partition directory? sfiles)))