Naive implementation of cas()

rakudo · Apr 16, 2014 · 15c145b · 15c145b
1 parent fbf3873
commit 15c145b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/asyncops.pm b/src/core/asyncops.pm
@@ -14,6 +14,8 @@ multi sub await(Channel $c) {
     $c.receive
 }
 
+sub cas (\val,&code) { code(val) } # naive implementation of cas
+
 sub INVOKE_KV(&block, $key, $value?) {
 
     my @names = map *.name, &block.signature.params;