guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Switch to guile-fibers@1.1 

I think the main change required is just to stop accessing the now missing
current-fiber parameter.
This commit is contained in:
Christopher Baines 2022-02-09 17:20:54 +00:00
parent 8ed53099ba
commit 4a1088c216
2 changed files with 33 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix-data-service/utils.scm
View File

@ -54,7 +54,6 @@
(define* (make-thread-pool-channel #:key (threads 8)) (define* (make-thread-pool-channel #:key (threads 8))
(parameterize (((@@ (fibers internal) current-fiber) #f))
(let ((channel (make-channel))) (let ((channel (make-channel)))
(for-each (for-each
(lambda _ (lambda _
@ -86,7 +85,7 @@
(loop)) (loop))
(_ #f)))))) (_ #f))))))
(iota threads)) (iota threads))
channel))) channel))
(define %thread-pool-mutex (make-mutex)) (define %thread-pool-mutex (make-mutex))
(define %thread-pool-channel #f) (define %thread-pool-channel #f)

2
guix-dev.scm
View File

@ -51,7 +51,7 @@
("guile-email" ,guile-email) ("guile-email" ,guile-email)
("guile-json" ,guile-json-4) ("guile-json" ,guile-json-4)
("guile-squee" ,guile-squee) ("guile-squee" ,guile-squee)
("guile-fibers" ,guile-fibers) ("guile-fibers" ,guile-fibers-1.1)
("guile-gcrypt" ,guile-gcrypt) ("guile-gcrypt" ,guile-gcrypt)
("guile-lzlib" ,guile-lzlib) ("guile-lzlib" ,guile-lzlib)
("guile-readline" ,guile-readline) ("guile-readline" ,guile-readline)