From 1da1659a8984d714d2951bd1791dfb2943875ea5 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 21 Jun 2019 13:40:51 -0400
Subject: [PATCH] Make sure to share result of the future

---
 libs/cyclone/concurrent.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libs/cyclone/concurrent.sld b/libs/cyclone/concurrent.sld
index 36993af2..b22d91a8 100644
--- a/libs/cyclone/concurrent.sld
+++ b/libs/cyclone/concurrent.sld
@@ -174,7 +174,7 @@
          (tfnc (lambda ()
                  (mutex-lock! lock) 
                  (let ((result (thunk))) ;; TODO: Catch exceptions (?)
-                   (set-result! ftr result)
+                   (set-result! ftr (make-shared result))
                    (set-done! ftr #t)
                    (mutex-unlock! lock) 
                  )))