From 6e0c1b045c840cdeb5228e645f9ca6264d3a8bf8 Mon Sep 17 00:00:00 2001
From: alice maz <alice@alicemaz.com>
Date: Thu, 6 Aug 2020 17:46:52 -0500
Subject: [PATCH] use C_CHICKEN_INSTALL_PROGRAM for egg cache name

---
 egg-environment.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/egg-environment.scm b/egg-environment.scm
index 50ea972a..3be23608 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))
@@ -120,4 +121,4 @@ EOF
   (or (get-environment-variable "CHICKEN_EGG_CACHE")
       (make-pathname (or (system-cache-directory)
                          (current-directory))
-                     "chicken-install")))
+                     chicken-install-program)))
-- 
2.27.0

