Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make sure to share result of the future

Browse source
This commit is contained in:
Justin Ethier 2019-06-21 13:40:51 -04:00
parent a462b28ac9
commit 1da1659a89
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
libs/cyclone/concurrent.sld
View file

@ -174,7 +174,7 @@
(tfnc (lambda () (tfnc (lambda ()
(mutex-lock! lock) (mutex-lock! lock)
(let ((result (thunk))) ;; TODO: Catch exceptions (?) (let ((result (thunk))) ;; TODO: Catch exceptions (?)
(set-result! ftr result) (set-result! ftr (make-shared result))
(set-done! ftr #t) (set-done! ftr #t)
(mutex-unlock! lock) (mutex-unlock! lock)
))) )))