summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-05-06 16:53:25 +0200
committerLudovic Courtès <ludo@gnu.org>2023-05-06 17:12:45 +0200
commite88bf64e6fa61265dca81a799ce824f639a2875a (patch)
tree8d4494d8771491b1e3f4f4874e3a7ef320dce210
parentf51888272558d98cf5c196b93fb6c499056fbf6c (diff)
downloadguix-e88bf64e6fa61265dca81a799ce824f639a2875a.tar.gz
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.
-rw-r--r--gnu/build/dbus-service.scm4
-rw-r--r--gnu/build/secret-service.scm2
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)