~ chicken-core (chicken-5) /tests/programs-path.scm

1(define (executable-path exe)
2  (string-append "../"
3                 (or (get-environment-variable "PROGRAM_PREFIX") "")
4                 exe
5                 (or (get-environment-variable "PROGRAM_SUFFIX") "")))
6
7(define chicken-path (executable-path "chicken"))
8(define csc-path (executable-path "csc"))
9(define csi-path (executable-path "csi"))