Source

chicken-belt / chicken-env.scm

1
2
3
4
5
6
7
8
(use extras posix)

(define chicken-coop (or (get-environment-variable "CHICKENS") "~/chickens"))
(define chicken-link "use-this")

(define (assert-chicken-coop-exists)
  (unless (and (file-exists? chicken-coop) (directory? chicken-coop))
    (fail "CHICKENS does not exist or is not a directory: ~S" chicken-coop)))