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

Change 'ref' to 'deref'

Browse source
This commit is contained in:
Justin Ethier 2019-06-13 13:04:44 -04:00
parent 9981ade6be
commit de0de090b4
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libs/cyclone/concurrency.sld
View file

@ -20,7 +20,7 @@
make-atom
atom
atom?
ref
deref
swap!
compare-and-set!
;; Shared objects
@ -66,8 +66,8 @@
(%make-atom (make-shared (car obj)))
(%make-atom #f)))
;; - ref atomic
(define-c ref
;; - deref atomic
(define-c deref
"(void *data, int argc, closure _, object k, object obj)"
" atomic a;
Cyc_check_atomic(data, obj);
@ -88,7 +88,7 @@
;; That means the function can get called multiple times. That means it needs to be a pure function. Another thing is that you can't control the order of the function calls. If multiple threads are swapping to an Atom at the same time, order is out of the window. So make sure your functions are independent of order, like we talked about before.
;;
(define (swap! atom f . args)
(let* ((oldval (ref atom))
(let* ((oldval (deref atom))
(newval (make-shared (apply f oldval args))))
(if (compare-and-set! atom oldval newval)
newval ;; value did not change, return new one