From 827dd711c1faa6bf53e2424d209d1abacd761cc7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 20 Jun 2019 18:54:38 -0400
Subject: [PATCH] WIP

---
 libs/cyclone/futures.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/libs/cyclone/futures.scm b/libs/cyclone/futures.scm
index 7171e80e..3de0f9f1 100644
--- a/libs/cyclone/futures.scm
+++ b/libs/cyclone/futures.scm
@@ -26,6 +26,15 @@
 (define (future-call thunk)
   (let ((ftr (vector *future-sym* 'todo)))
     ;; TODO: setup and call the thread here
+
+;; Sketching out what is needed:
+;;(define (sum-entry-pt)
+;;  (sum-loop (* 100 100 100)))
+;;
+;;;; Thread - Do something, then let main thread know when we are done
+;;(define t9 (make-thread sum-entry-pt))
+;;(thread-start! t1)
+
     ftr))