Fix problem with set multiplication

rakudo · Sep 10, 2013 · 51aa2c8 · 51aa2c8
1 parent 63dca5d
commit 51aa2c8
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -214,9 +214,14 @@ my role Baggy does Associative {
 }
 
 only sub infix:<(.)>(**@p) {
-    my $set = Set.new: @p.map(*.Set(:view).keys);
-    my @bags = @p.map(*.Bag(:view));
-    Bag.new-fp($set.map({ ; $_ => [*] @bags>>.{$_} }));
+    my $keybag = @p.shift.KeyBag;
+    for @p.map(*.Bag(:view)) -> $bag {
+        $bag{$_}
+          ?? $keybag{$_} *= $bag{$_}
+          !! $keybag.delete($_)
+          for $keybag.keys;
+    }
+    $keybag.Bag(:view);
 }
 # U+228D MULTISET MULTIPLICATION
 only sub infix:<<"\x228D">>(|p) {