A patch by alicemaz, see #1713.
felix
From b6b56495a686b6d774d94232d29cfdb56176cec1 Mon Sep 17 00:00:00 2001 From: felix <fe...@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 <fe...@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