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

File obey-chicken-repository-env-var.patch, 655 bytes (added by Christian Kellermann, 10 years ago)
  • setup-helper.scm

     
    4545  ;A sub-dir using the current binary version number.
    4646  ;(Note that this is only indirectly related to the
    4747  ;Chicken version number.)
    48   (make-pathname
    49     `(,(installation-prefix) "lib" "chicken")
    50     (number->string (##sys#fudge 42))) )
     48  (or (get-environment-variable "CHICKEN_REPOSITORY")
     49      (make-pathname
     50       `(,(installation-prefix) "lib" "chicken")
     51       (number->string (##sys#fudge 42)))) )
    5152
    5253(define (directory-separator? obj)
    5354  (let ((obj