Change par-mapper' to use fetch-result-of-defered-thunks
So the fetch-result-of-defered-thunk procedure can be removed.
This commit is contained in:
parent
9f080524bc
commit
5bb7cf0c1c
1 changed files with 1 additions and 1 deletions
|
|
@ -185,7 +185,7 @@
|
||||||
(head (defer-to-thread-pool-channel
|
(head (defer-to-thread-pool-channel
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(apply proc heads)))))
|
(apply proc heads)))))
|
||||||
(cons (fetch-result-of-defered-thunk head) tail)))
|
(cons (fetch-result-of-defered-thunks head) tail)))
|
||||||
(_
|
(_
|
||||||
'())))))
|
'())))))
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue