mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 02:00:20 +02:00
Code Activity

merge from 1.8 branch

Browse source
This commit is contained in:
Kevin Ryde 2006-06-17 22:53:04 +00:00
parent 9a9931719d
commit 5be9f7290b
20 changed files with 39 additions and 15 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 '()))
(do ((i 0 (+ 1 i)))
((= i n)
(for-each join-thread futures))
(for-each join-thread threads))
(set! threads
(cons (begin-thread
(let loop ()
@ -115,7 +115,7 @@ of applying P-PROC on ARGLISTS."
(result results))
(do ((i 0 (+ 1 i)))
((= i n)
(for-each join-thread futures))
(for-each join-thread threads))
(set! threads
(cons (begin-thread
(let loop ()