This commit is contained in:
@@ -0,0 +1,13 @@
|
||||
@module ref
|
||||
|
||||
ref value = Ref (spawn [ ! => loop value ])
|
||||
|
||||
loop value = receive [
|
||||
.set new-value => loop new-value
|
||||
p, id, .get => { send p (id, value); loop value }
|
||||
]
|
||||
|
||||
@object Ref pid [
|
||||
set val = .set val > send pid
|
||||
get! = .get > send-wait pid
|
||||
]
|
||||
Reference in New Issue
Block a user