Fix empty statement in semilist handling.

rakudo · Oct 15, 2012 · 726d2fa · 726d2fa
1 parent 0937c72
commit 726d2fa
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -532,9 +532,9 @@ class Perl6::Actions is HLL::Actions {
     method semilist($/) {
         my $past := QAST::Stmts.new( :node($/) );
         if $<statement> {
-            for $<statement> { $past.push($_.ast); }
+            for $<statement> { $past.push($_.ast) if $_.ast; }
         }
-        else {
+        unless +@($past) {
             $past.push( QAST::Op.new( :op('call'), :name('&infix:<,>') ) );
         }
         make $past;