Normalize Baggy.gist to make consistent with future Mixy.gist

rakudo · Oct 3, 2013 · 147c1e0 · 147c1e0
1 parent 6f84eb5
commit 147c1e0
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -54,17 +54,17 @@ my role Baggy does QuantHash {
     }
 
     multi method Str(Baggy:D $ : --> Str) {
-        ~ %!elems.values.map({ .key xx .value });
+        ~ %!elems.values.map( {
+              .value == 1 ?? .key.gist !! "{.key.gist}({.value})"
+          } );
     }
     multi method gist(Baggy:D $ : --> Str) {
         my $name := self.^name;
         ( $name eq 'Bag' ?? 'bag' !! "$name.new" )
         ~ '('
         ~ %!elems.values.map( {
-            .value > 1  # rather arbitrarily
-              ?? "{.key.gist}({.value})"
-              !! .key.gist xx .value
-        } ).join(', ')
+              .value == 1 ?? .key.gist !! "{.key.gist}({.value})"
+          } ).join(', ')
         ~ ')';
     }
     multi method perl(Baggy:D $ : --> Str) {