1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!%GUILE% --no-auto-compile
-*- scheme -*-
!#
(set! %load-path
(append '("%modsrcdir%" "%FIBERS_SOURCE_DIRECTORY%") %load-path))
(set! %load-compiled-path
(append '("%modbuilddir%" "%FIBERS_OBJECT_DIRECTORY%") %load-compiled-path))
;; On AArch64, work around <https://codeberg.org/guile/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))))
|
