Fix and improve merge_twines

rakudo · Aug 15, 2011 · 7810da2 · 7810da2
1 parent 5f145c6
commit 7810da2
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -331,14 +331,13 @@ class Perl6::Actions is HLL::Actions {
     }
 
     method merge_twines(@twines) {
-        my @ret := [];
-        @ret.push($*ST.add_constant('Str', 'str', '')<compile_time_value>);
+        my @ret := @twines.shift.ast;
         for @twines {
             my @cur   := $_.ast;
             @ret.push(
                 $*ST.add_constant(
                     'Str', 'str',
-                    nqp::unbox_s(@ret.pop) ~ nqp::unbox_s(@cur.shift)
+                    nqp::unbox_s(@ret.pop) ~ ' ' ~ nqp::unbox_s(@cur.shift)
                 )<compile_time_value>,
             );
             nqp::splice(@ret, @cur, +@ret, 0);