me
/
guix
Archived
1
0
Fork 0

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.
master
Ludovic Courtès 2023-05-06 16:53:25 +02:00
parent f518882725
commit e88bf64e6f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 3 additions and 3 deletions

View File

@ -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))))
;;;

View File

@ -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)