Set block name.

Raku · Jul 14, 2012 · 30ab35b · 30ab35b
1 parent 51fa282
commit 30ab35b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/QAST/Compiler.nqp b/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();