diff options
| -rw-r--r-- | guix-data-service/utils.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm index 9926478..697d6df 100644 --- a/guix-data-service/utils.scm +++ b/guix-data-service/utils.scm @@ -110,6 +110,7 @@ (duration-logger (const #f)) destructor lifetime + scheduler (name "unnamed")) (define (initializer/safe) (with-exception-handler @@ -342,7 +343,9 @@ available waiters resources-last-used))))) - #:unwind? #t)))) + #:unwind? #t))) + (or scheduler + (current-scheduler))) (make-resource-pool-record name channel))) |