diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-05-06 16:53:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-06 17:12:45 +0200 |
| commit | e88bf64e6fa61265dca81a799ce824f639a2875a (patch) | |
| tree | 8d4494d8771491b1e3f4f4874e3a7ef320dce210 /gnu/build | |
| parent | f51888272558d98cf5c196b93fb6c499056fbf6c (diff) | |
| download | guix-e88bf64e6fa61265dca81a799ce824f639a2875a.tar guix-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.
Diffstat (limited to 'gnu/build')
| -rw-r--r-- | gnu/build/dbus-service.scm | 4 | ||||
| -rw-r--r-- | 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) |