From 5b4bd345b336f6042c761d3918435afcb5bc7736 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 22 Apr 2023 12:31:30 +0100 Subject: Try to avoid problems with printing the fibers scheduler --- scripts/guix-build-coordinator.in | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index d2f2c8a..8199896 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -33,12 +33,15 @@ 256)))) (use-modules (srfi srfi-1) + (srfi srfi-9 gnu) (srfi srfi-19) (srfi srfi-37) (srfi srfi-43) (ice-9 match) + (ice-9 suspendable-ports) (web uri) (fibers) + (fibers scheduler) (fibers conditions) (prometheus) ((guix ui) #:select (read/eval)) @@ -52,6 +55,15 @@ (guix-build-coordinator build-allocator) (guix-build-coordinator client-communication)) +(install-suspendable-ports!) + +;; TODO Work around this causing problems with backtraces +;; https://github.com/wingo/fibers/issues/76 +(set-record-type-printer! + (@@ (fibers scheduler) ) + (lambda (scheduler port) + (display "#" port))) + (define %base-options ;; Specifications of the command-line options (list (option '("secret-key-base-file") #t #f -- cgit v1.2.3