From b6b56495a686b6d774d94232d29cfdb56176cec1 Mon Sep 17 00:00:00 2001
From: felix <felix@call-with-current-continuation.org>
Date: Thu, 15 Apr 2021 11:02:16 +0200
Subject: [PATCH] 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>
---
 egg-environment.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
-- 
2.24.2