Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2019-06-20 18:54:38 -04:00
parent c6f532d8e1
commit 827dd711c1
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
libs/cyclone/futures.scm
View file

@ -26,6 +26,15 @@
(define (future-call thunk) (define (future-call thunk)
(let ((ftr (vector *future-sym* 'todo))) (let ((ftr (vector *future-sym* 'todo)))
;; TODO: setup and call the thread here ;; 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)) ftr))