Better diagnostics.

Raku · Jul 21, 2012 · b6049ef · b6049ef
1 parent e179076
commit b6049ef
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -330,7 +330,14 @@ class QAST::Compiler is HLL::Compiler {
             my $stmts;
             {
                 my $*BLOCK := $block;
-                $stmts := self.compile_all_the_stmts($node.list);
+                my $err;
+                try {
+                    $stmts := self.compile_all_the_stmts($node.list);
+                    CATCH { $err := $! }
+                }
+                if $err {
+                    nqp::die("Error while compiling block " ~ $node.name ~ ": $err");
+                }
             }
 
             # Generate parameter handling code.