listify the expression for winner

this makes single-argument winner work.
rakudo · Nov 21, 2013 · ba8b9fb · ba8b9fb
1 parent 528c078
commit ba8b9fb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1240,7 +1240,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
                         :name('new'),
                         QAST::WVal.new( :value($*W.find_symbol(['List'])) ) ));
             } else {
-                $past.push( $<xblock><EXPR>.ast );
+                $past.push( QAST::Op.new(:name('&infix:<,>'), :op('call'), $<xblock><EXPR>.ast) );
             }
         } elsif $<block> {
             $past.push( QAST::Op.new(