lib/rouge/demos/tulip in rouge-2.0.2 vs lib/rouge/demos/tulip in rouge-2.0.3

@@ -1,14 +1,13 @@
-# ref.tlp
 @module ref
 
-ref value = Instance (spawn [! loop value ])
+ref value = Ref (spawn [ ! => loop value ])
 
 loop value = receive [
   .set new-value => loop new-value
-  p, .get => (send p value; loop value)
+  p, id, .get => { send p (id, value); loop value }
 ]
 
-@module Instance pid [
+@object Ref pid [
   set val = .set val > send pid
   get! = .get > send-wait pid
 ]