Fix (:a(1) :b(2)) dieing due to missing value arg to Pair.new

Patch by FROGGS++
rakudo · Sep 19, 2015 · 86536d2 · 86536d2
1 parent de907e5
commit 86536d2
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -5253,7 +5253,7 @@ Compilation unit '$file' contained the following violations:
                     hunt_loose_adverbs_in_arglist($EXPR, @args);
                 }
                 for @args {
-                    $_[2].named('value');
+                    $_[2] := QAST::Want.new(|$_[2].list);
                 }
             }
         }
@@ -5268,8 +5268,14 @@ Compilation unit '$file' contained the following violations:
             && nqp::istype($past[0][0], QAST::Var) && $past[0][0].name eq 'Pair' {
                 $past := QAST::Stmts.new( :node($/),
                     QAST::Op.new( :op('call'), :name('&infix:<,>'),
-                    $past[0], |@args)
-                )
+                        QAST::Op.new(
+                            :op('callmethod'), :name('new'), :returns($*W.find_symbol(['Pair'])),
+                            QAST::Var.new( :name('Pair'), :scope('lexical') ),
+                            $past[0][1], $past[0][2]
+                        ),
+                        |@args
+                    )
+                );
             }
             else {
                 for @args {