Bring Baggy.perl inline with Setty.perl

Wrt to immutable bag() and mix(). This does not fix the fact that ().Set ().Bag and ().Mix now return the immutable set() bag() mix() respectively.
rakudo · Jun 29, 2018 · 84f60ad · 84f60ad
1 parent 5a4c95e
commit 84f60ad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Baggy.pm6 b/src/core/Baggy.pm6
@@ -343,10 +343,10 @@ my role Baggy does QuantHash {
             nqp::concat(').',self.^name)
           ),
           nqp::if(
-            nqp::istype(self,Bag),
+            nqp::eqaddr(self,bag()),
             'bag()',
             nqp::if(
-              nqp::istype(self,Mix),
+              nqp::eqaddr(self,mix()),
               'mix()',
               nqp::concat('().',self.^name)
             )