#!/usr/bin/guile --no-auto-compile
-*- scheme -*-
!#

(set! %load-path
      (append '("/usr/share/guile/site/3.0" "/usr/share/guile/site/3.0") %load-path))
(set! %load-compiled-path
      (append '("/usr/lib64/guile/3.0/site-ccache" "/usr/lib64/guile/3.0/site-ccache") %load-compiled-path))

;; On AArch64, work around <https://github.com/wingo/fibers/issues/83> by
;; disabling JIT (needed with Guile 3.0.9).
(if (and (string-prefix? "aarch64-" %host-type)
         (not (getenv "GUILE_JIT_THRESHOLD")))
    (begin
      (setenv "GUILE_JIT_THRESHOLD" "-1")
      (apply execlp (car (command-line)) (command-line)))
    (apply (@ (shepherd) main) (cdr (command-line))))
