[Yapsi] enabled call before declaration

lib/Yapsi.pm

@@ -184,7 +184,7 @@ class Yapsi::Perl6::Actions {
         my $block = @blockstack.pop;
         my $name = $block.name;
         $block.vars = @vars.list;
-        $block.children = $<statementlist><statement>».ast;
+        $block.children.push($<statementlist><statement>».ast.grep(*.defined));
         make $block;
         if @blockstack {
             %block-parents{$name} = @blockstack[*-1];
@@ -277,7 +277,7 @@ class Yapsi::Perl6::Actions {
                 FUTURE::Var.new(:$name),
                 $<subdecl><block>.ast
             );
-            make $bind;
+            @blockstack[*-1].children.push($bind);
         }
     }
 

t/runtime.t

@@ -51,6 +51,8 @@ my @tests =
     'my $a = { say 42 }; say 1; $a()', "1\n42\n",   'non-immediate block',
     'my $a := { say 2 }; say 1; $a()', "1\n2\n",    'bind block and call',
     '{ say 42 }()',                    "42\n",      'call a block',
+    'sub foo { say 42 }; foo()',       "42\n",      'call a named sub',
+    'foo(); sub foo { say 5 }',        "5\n",       'call before declaration',
 ;
 
 for @tests -> $program, $expected, $message {