(import (chicken file)
        (chicken process-context))

(include "utils.scm")

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

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