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.
This commit is contained in:
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 @@ (define %dbus-query-timeout 2) ;in seconds
;;; which is required at least for the Jami service. ;;; which is required at least for the Jami service.
(define sleep* (define sleep*
(lambda () ;delay execution (lambda () ;delay execution
(if (resolve-module '(fibers) #f) (if (resolve-module '(fibers) #f #:ensure #f)
(module-ref (resolve-interface '(fibers)) 'sleep) (module-ref (resolve-interface '(fibers)) 'sleep)
(begin (begin
(format #f "fibers not available -- blocking 'sleep' in use") (format #t "Fibers not available -- blocking 'sleep' in use~%")
sleep)))) sleep))))
;;; ;;;

View file

@ -62,7 +62,7 @@ (define-syntax with-modules
(define (wait-for-readable-fd port timeout) (define (wait-for-readable-fd port timeout)
"Wait until PORT has data available for reading or TIMEOUT has expired. "Wait until PORT has data available for reading or TIMEOUT has expired.
Return #t in the former case and #f in the latter case." 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 (#f
(log "blocking on socket...~%") (log "blocking on socket...~%")
(match (select (list port) '() '() timeout) (match (select (list port) '() '() timeout)