diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-06 10:58:31 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-06 10:58:31 +0100 |
| commit | a9abe3d288a10f1dae2c7c47b34c774867b9aed5 (patch) | |
| tree | b5d9e46d15ed01a2986d871c37727875c37ee40d | |
| parent | 9c42dcb726fc925606b12695e195ae1dc7e28cc3 (diff) | |
| download | build-coordinator-a9abe3d288a10f1dae2c7c47b34c774867b9aed5.tar build-coordinator-a9abe3d288a10f1dae2c7c47b34c774867b9aed5.tar.gz | |
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
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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) |