Slightly less naive implementation of cas()

jnthn++
rakudo · Apr 16, 2014 · fae1d09 · fae1d09
1 parent 15c145b
commit fae1d09
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/asyncops.pm b/src/core/asyncops.pm
@@ -14,7 +14,7 @@ multi sub await(Channel $c) {
     $c.receive
 }
 
-sub cas (\val,&code) { code(val) } # naive implementation of cas
+sub cas (\val,&code) { val = code(val) } # naive implementation of cas
 
 sub INVOKE_KV(&block, $key, $value?) {