Merge branch 'master' of git@github.com:rakudo/rakudo

rakudo · May 2, 2009 · 06f0ae8 · 06f0ae8
2 parents 3bbe459 + cacc976
commit 06f0ae8
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/setting/Any-list.pm b/src/setting/Any-list.pm
@@ -11,8 +11,14 @@ class Any is also {
         }
     }
 
-    our Str multi method join(Str $separator = '') {
-        @.list.reduce({ $^a ~ $separator ~ $^b })
+    our Str multi method join($separator = '') {
+        Q:PIR {
+            $P0 = self.'list'()
+            $P1 = find_lex '$separator'
+            $S1 = $P1
+            $S0 = join $S1, $P0
+            %r = box $S0
+        }
     }
 
     our List multi method map(*&expr) {