From e88bf64e6fa61265dca81a799ce824f639a2875a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 6 May 2023 16:53:25 +0200 Subject: [PATCH] services: dbus-service, secret-service: Do not cause (fibers) to be loaded. * gnu/build/dbus-service.scm (sleep*): Pass #:ensure #f to 'resolve-module'. * gnu/build/secret-service.scm (wait-for-readable-fd): Likewise. --- gnu/build/dbus-service.scm | 4 ++-- gnu/build/secret-service.scm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/gnu/build/dbus-service.scm b/gnu/build/dbus-service.scm index c5671396e2..3ae45ad755 100644 --- a/gnu/build/dbus-service.scm +++ b/gnu/build/dbus-service.scm @@ -64,10 +64,10 @@ ;;; which is required at least for the Jami service. (define sleep* (lambda () ;delay execution - (if (resolve-module '(fibers) #f) + (if (resolve-module '(fibers) #f #:ensure #f) (module-ref (resolve-interface '(fibers)) 'sleep) (begin - (format #f "fibers not available -- blocking 'sleep' in use") + (format #t "Fibers not available -- blocking 'sleep' in use~%") sleep)))) ;;; diff --git a/gnu/build/secret-service.scm b/gnu/build/secret-service.scm index b362b901be..c53145c8e7 100644 --- a/gnu/build/secret-service.scm +++ b/gnu/build/secret-service.scm @@ -62,7 +62,7 @@ bindings available within the lexical scope of BODY." (define (wait-for-readable-fd port timeout) "Wait until PORT has data available for reading or TIMEOUT has expired. Return #t in the former case and #f in the latter case." - (match (resolve-module '(fibers) #f) ;using Fibers? + (match (resolve-module '(fibers) #f #:ensure #f) ;using Fibers? (#f (log "blocking on socket...~%") (match (select (list port) '() '() timeout)