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
parent
f518882725
commit
e88bf64e6f
|
@ -64,10 +64,10 @@
|
||||||
;;; 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))))
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
|
|
|
@ -62,7 +62,7 @@ bindings available within the lexical scope of BODY."
|
||||||
(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)
|
||||||
|
|
Reference in New Issue