(import
  (chicken process-context)
  (chicken pathname)
  (chicken platform))

(cond-expand
  (compiling
    (import (chicken foreign))
    (define lay:env:chicken-install-program (foreign-value "C_CHICKEN_INSTALL_PROGRAM" c-string)))
  (else
    (define lay:env:chicken-install-program "chicken-install")))

; From egg-environment.scm
(define lay:env:chicken-install-cache-directory
  (or (get-environment-variable "CHICKEN_EGG_CACHE")
      (make-pathname (or (system-cache-directory)
                         (current-directory))
                     lay:env:chicken-install-program)))

(define lay:env:chicken-install-cache-metadata-directory
  ;; Directory where the VERSION, TIMESTAMP and STATUS files are
  ;; stored (under their corresponding egg directory).
  (make-pathname lay:env:chicken-install-cache-directory ".cache-metadata"))