diff options
Diffstat (limited to 'guix-build-coordinator/utils/fibers.scm')
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm index 8aef7cc..a8b6738 100644 --- a/guix-build-coordinator/utils/fibers.scm +++ b/guix-build-coordinator/utils/fibers.scm @@ -4,6 +4,7 @@ #:use-module (fibers) #:use-module (fibers channels) #:use-module (fibers conditions) + #:use-module (guix-build-coordinator utils) #:export (make-worker-thread-channel call-with-worker-thread @@ -86,7 +87,7 @@ arguments of the worker thread procedure." If already in the worker thread, call PROC immediately." (let ((args (%worker-thread-args))) (if args - (apply proc args) + (call-with-delay-logging proc #:args args) (let ((reply (make-channel))) (put-message channel (list reply (get-internal-real-time) proc)) (match (get-message reply) |