~ chicken-core (chicken-5) 87c2c6166ad2c108947d4e49634cdb965c12bb63
commit 87c2c6166ad2c108947d4e49634cdb965c12bb63
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Oct 28 21:40:35 2016 +0200
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 13 11:41:48 2016 +0100
need access to csi name too
diff --git a/egg-environment.scm b/egg-environment.scm
index 0fa691f5..c69bdad1 100644
--- a/egg-environment.scm
+++ b/egg-environment.scm
@@ -41,6 +41,9 @@ EOF
(define default-csc
(string-append default-bindir "/" (foreign-value "C_CSC_PROGRAM" c-string)))
+(define default-csi
+ (string-append default-bindir "/" (foreign-value "C_CSI_PROGRAM" c-string)))
+
(define default-builder
(make-pathname default-bindir (foreign-value "C_CHICKEN_DO_PROGRAM" c-string)))
Trap