~ chicken-core (chicken-5) d61fb34c2131b66925cc21621e26e39427aeb3b6

commit d61fb34c2131b66925cc21621e26e39427aeb3b6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Apr 15 11:02:16 2021 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Thu Apr 15 16:25:12 2021 +0200

    Use program name if chicken-install as cache directory name. This patch weas proposed by alicemaz (see #1713).
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/egg-environment.scm b/egg-environment.scm
index 2256e696..0ece937c 100644
--- a/egg-environment.scm
+++ b/egg-environment.scm
@@ -43,6 +43,7 @@ EOF
 (define cross-chicken (feature? #:cross-chicken))
 (define binary-version (foreign-value "C_BINARY_VERSION" int))
 (define major-version (foreign-value "C_MAJOR_VERSION" int))
+(define chicken-install-program (foreign-value "C_CHICKEN_INSTALL_PROGRAM" c-string))
 
 (define default-cc (foreign-value "C_TARGET_CC" c-string))
 (define default-cxx (foreign-value "C_TARGET_CXX" c-string))
@@ -121,4 +122,4 @@ EOF
   (or (get-environment-variable "CHICKEN_EGG_CACHE")
       (make-pathname (or (system-cache-directory)
                          (current-directory))
-                     "chicken-install")))
+                     chicken-install-program)))