mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-19 13:49:16 +02:00
27 lines
443 B
Scheme
27 lines
443 B
Scheme
(import
|
|
(scheme base)
|
|
(scheme write)
|
|
(cyclone concurrency)
|
|
)
|
|
|
|
(define lis '(1 2))
|
|
(define a (make-atom lis))
|
|
(write
|
|
(list
|
|
a
|
|
(ref a)
|
|
(compare-and-set! a 1 lis)
|
|
(ref a)
|
|
(compare-and-set! a lis 1)
|
|
(ref a)
|
|
))
|
|
(newline)
|
|
(write
|
|
(list
|
|
(make-shared '(1 (2 (3))))
|
|
(make-shared 1)
|
|
(make-shared 1.0)
|
|
(make-shared "this is a string")
|
|
(make-shared #(a b c d))
|
|
(make-shared #u8(1 2 3 4))
|
|
))
|