File: programs-path.scm

package info (click to toggle)
chicken 5.3.0-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,892 kB
  • sloc: ansic: 580,083; lisp: 71,987; tcl: 1,445; sh: 588; makefile: 60
file content (9 lines) | stat: -rw-r--r-- 349 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
 
(define (executable-path exe)
  (string-append "../"
                 (or (get-environment-variable "PROGRAM_PREFIX") "")
                 exe
                 (or (get-environment-variable "PROGRAM_SUFFIX") "")))

(define chicken-path (executable-path "chicken"))
(define csc-path (executable-path "csc"))
(define csi-path (executable-path "csi"))