Arguments to .join should be treated as Stringy.

rakudo · Jun 14, 2011 · e87a9ef · e87a9ef
1 parent 2f7c19f
commit e87a9ef
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -84,12 +84,14 @@ class List {
         while $i < $elems {
             pir::set__vQis($fsa, pir::repr_unbox_int__IP($i),
                 pir::repr_unbox_str__SP(
-                    pir::set__PQi($!items, pir::repr_unbox_int__IP($i)).Str
+                    pir::set__PQi($!items, pir::repr_unbox_int__IP($i)).Stringy
                 )
             );
             $i = $i + 1;
         }
-        pir::perl6_box_str__PS(pir::join(pir::repr_unbox_str__SP($separator.Str), $fsa));
+        pir::perl6_box_str__PS(
+            pir::join(pir::repr_unbox_str__SP($separator.Stringy), $fsa)
+        );
     }
 
     method Int()     { self.elems }