fix for print with one argument

rakudo-p5 · May 10, 2013 · 084ddd2 · 084ddd2
1 parent 1c5460a
commit 084ddd2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/lib/Perl5/Actions.nqp b/lib/Perl5/Actions.nqp
@@ -3959,11 +3959,10 @@ class Perl5::Actions is HLL::Actions does STDActions {
 
     method term:sym<print>($/) {
         $V5DEBUG && say("term:sym<print>($/)");
-        my @args := $<args> ?? $<args>.ast.list !! [ QAST::Var.new( :name('$_'), :scope('lexical') ) ];
+        my @args := $<arglist> ?? $<arglist>.ast.list !! [ QAST::Var.new( :name('$_'), :scope('lexical') ) ];
         my $past := QAST::Op.new( :op('call'), :name('&print'),
-            |@args
-        );
-        $past.unshift( QAST::Var.new( :named('fh'), :name(~$<fh>), :scope('lexical') ) ) if $<fh>;
+            |@args );
+        $past.push( QAST::Var.new( :named('fh'), :name(~$<fh>), :scope('lexical') ) ) if $<fh>;
         make $past
     }
 

diff --git a/lib/Perl5/Grammar.nqp b/lib/Perl5/Grammar.nqp
@@ -3382,7 +3382,7 @@ grammar Perl5::Grammar is HLL::Grammar does STD5 {
 #        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }
 
     token term:sym<print>
-        { <sym> » <?before \s*> <.ws> [ <fh=.EXPR('z=')> <?before \s+> <.ws> <args=.EXPR('g=')> | <args=.EXPR('g=')> ]? }
+        { <sym> » <?before \s*> <.ws> [ <fh=.EXPR('z=')> <?before \s+> <.ws> <arglist> | <arglist> ]? }
 
 #    token term:sym<prototype>
 #        { <sym> » <?before \s*> <.ws> <EXPR('q=')>? }