~ 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