use parrot's String.reverse for Str.flip

also bumps PARROT_REVISION This speeds up a small benchmark (which reverse a 1200 char 10 times) from 14s to 0.7s (close to startup time). cotto++ cotto++ cotto++
rakudo · Oct 15, 2010 · 79f754a · 79f754a
1 parent 46b2c5a
commit 79f754a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/build/PARROT_REVISION b/build/PARROT_REVISION
@@ -1 +1 @@
-49387
+49541
diff --git a/src/core/Cool-str.pm b/src/core/Cool-str.pm
@@ -387,7 +387,12 @@ augment class Cool {
     }
 
     multi method flip() is export {
-        (~self).split('').reverse().join;
+        ~ Q:PIR {
+            $P0 = box ''
+            $P1 = find_lex 'self'
+            $S0 = $P0.'reverse'($P1)
+            %r  = box $S0
+        }
     }
 
     # Not yet spec'd, I expect it will be renamed