aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)