Ticket #722: obey-chicken-repository-env-var.patch

setup-helper.scm

@@ -45 +45 @@
   ;A sub-dir using the current binary version number.
   ;(Note that this is only indirectly related to the
   ;Chicken version number.)
-  (make-pathname
-    `(,(installation-prefix) "lib" "chicken")
-    (number->string (##sys#fudge 42))) )
+  (or (get-environment-variable "CHICKEN_REPOSITORY")
+      (make-pathname
+       `(,(installation-prefix) "lib" "chicken")
+       (number->string (##sys#fudge 42)))) )
 
 (define (directory-separator? obj)
   (let ((obj