From a9abe3d288a10f1dae2c7c47b34c774867b9aed5 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 6 Oct 2023 10:58:31 +0100 Subject: Use start-stack in make-worker-thread-channel Not sure what this does, but it seems to work around Guile crashing in (backtrace) like: Backtrace: In guix-build-coordinator/utils/fibers.scm: Exception thrown while printing backtrace: In procedure vector-ref: Argument 2 out of range: 99 --- guix-build-coordinator/utils/fibers.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator') diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm index 0ce6da0..c9a04fb 100644 --- a/guix-build-coordinator/utils/fibers.scm +++ b/guix-build-coordinator/utils/fibers.scm @@ -110,7 +110,9 @@ arguments of the worker thread procedure." (lambda () (call-with-values (lambda () - (apply proc args)) + (start-stack + 'worker-thread + (apply proc args))) (lambda vals (cons (/ (- (get-internal-real-time) start-time) -- cgit v1.2.3