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

No longer need make-share

Browse source
This commit is contained in:
Justin Ethier 2020-01-24 14:53:48 -05:00
parent a6ce8c4ba1
commit f672d23e75
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
examples/threading/sum-mutex.scm
View file

@ -11,7 +11,7 @@
(define (sum-loop n)
(mutex-lock! m)
(set! *sum* (make-shared (+ *sum* 1)))
(set! *sum* (+ *sum* 1))
(mutex-unlock! m)
;(swap! *sum* + 1)
(if (zero? n)