mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

(n-par-for-each, n-for-each-par-map): Two more spots

Browse source 
where `futures' should become `threads' from Marius' change of
2006-01-29.
This commit is contained in:
Kevin Ryde 2006-05-09 00:33:44 +00:00
parent dd07ef3e72
commit ee9c5b6e33
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/threads.scm
View file

@ -86,7 +86,7 @@
(threads '())) (threads '()))
(do ((i 0 (+ 1 i))) (do ((i 0 (+ 1 i)))
((= i n) ((= i n)
(for-each join-thread futures)) (for-each join-thread threads))
(set! threads (set! threads
(cons (begin-thread (cons (begin-thread
(let loop () (let loop ()
@ -115,7 +115,7 @@ of applying P-PROC on ARGLISTS."
(result results)) (result results))
(do ((i 0 (+ 1 i))) (do ((i 0 (+ 1 i)))
((= i n) ((= i n)
(for-each join-thread futures)) (for-each join-thread threads))
(set! threads (set! threads
(cons (begin-thread (cons (begin-thread
(let loop () (let loop ()