Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix syntax errors

Browse source
This commit is contained in:
Justin Ethier 2019-06-21 13:15:19 -04:00
parent 8e34ef93e8
commit a108d39ea0
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libs/cyclone/futures.sld
View file

@ -6,7 +6,7 @@
(define-library (futures)
(import (scheme base)
(scheme write)
(cyclone concurrency)
(cyclone concurrent)
(srfi 18)
)
(export
@ -14,6 +14,8 @@
future-call
future-deref
)
(begin
;(define *future-sym* (string->symbol " future "))
;(define (future? obj)
; (and (vector? obj) (eq? (vector-ref obj 0) *future-sym*)))
@ -47,8 +49,8 @@
(tfnc (lambda ()
(mutex-lock! lock)
(let ((result (thunk))) ;; TODO: Catch exceptions (?)
(set-done! #t)
(set-result! result)
(set-done! ftr #t)
(set-result! ftr result)
;(vector-set! ftr 1 #t) ;; Done
;(vector-set! ftr 2 result)
(mutex-unlock! lock)