Changeset 4098

Timestamp:

Nov 11, 2009, 10:48:24 PM (11 years ago)

Author:

orlov

Message:

• Removed AtomicApply?.

File:

• to-imperative/trunk/samples/src/ParCounter.rf (modified) (2 diffs)

to-imperative/trunk/samples/src/ParCounter.rf

@@ -5 +5 @@
 $use Arithm Box Parallel StdIO System;
 
-$func NewCounter = t.counter;
-$func Incr t.counter = ;
-$func Count t.counter = s.n;
+$public $func NewCounter = t.counter;
+$public $func Incr t.counter = ;
+$public $func Count t.counter = s.n;
 
 NewCounter =
@@ -18 +18 @@
         $iter {
                 <Recv s.msgbox> : e,
-                        <AtomicApply &UpdateCounter s.box> : e;
+                        <Box.Get s.box> : s.n,
+                        <Box.Store s.box <Add s.n 1>>;
         }, $fail;
-
-$func UpdateCounter s.box = ;
-UpdateCounter s.box =
-        <Box.Get s.box> : s.n,
-        <Box.Store s.box <Add s.n 1>>;
 
 Incr (s.msgbox s.box) = <Send s.msgbox 1>;