No need to check all parameters passed, the first will do

rakudo · Sep 9, 2013 · 437e799 · 437e799 · BenGoldberg1 · Sep 9, 2013
1 parent 9b4d4e1
commit 437e799
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Setty.pm b/src/core/Setty.pm
@@ -132,7 +132,7 @@ only sub infix:<<"\x220C">>($a, $b --> Bool) {
 
 only sub infix:<(|)>(**@p) {
     my $set = Set.new: @p.map(*.Set.keys);
-    if @p.grep(Baggy) {
+    if @p.first(Baggy) {
         my @bags = @p.map(*.Bag);
         Bag.new-fp($set.map({ ; $_ => [max] @bags>>.{$_} }));
     }
@@ -146,7 +146,7 @@ only sub infix:<<"\x222A">>(|p) {
 }
 
 only sub infix:<(&)>(**@p) {
-    if @p.grep(Baggy) {
+    if @p.first(Baggy) {
         my $keybag = @p ?? @p.shift.KeyBag !! KeyBag.new;
         for @p.map(*.Bag) -> $bag {
             $bag{$_}