Set block name.

Author: jnthn

src/QAST/Compiler.nqp

@@ -343,14 +343,15 @@ class QAST::Compiler is HLL::Compiler {
             $sub.push($stmts);
             $sub.push_pirop(".return (" ~ $stmts.result ~ ")");
 
-            # Set compilation unit ID and, if applicable, outer.
+            # Set compilation unit ID, name and, if applicable, outer.
             $sub.subid($node.cuid);
             if nqp::istype($block.outer, BlockInfo) {
                 $sub.pirflags(':anon :lex :outer(' ~ self.escape($block.outer.qast.cuid) ~ ')');
             }
             else {
                 $sub.pirflags(':anon :lex');
             }
+            $sub.name($node.name);
 
             # Set loadlibs if applicable.
             my @loadlibs := $block.loadlibs();