Make panic always throw X::Comp::AdHoc.

This also means all the panics get the location included in the error.
rakudo · Dec 3, 2012 · a109e73 · a109e73
1 parent 6b01881
commit a109e73
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -201,6 +201,10 @@ role STD {
         }
         $lang_cursor.nibbler();
     }
+
+    method panic(*@args) {
+        $*W.throw(self.MATCH, < X Comp AdHoc >, payload => nqp::join('', @args))
+    }
 }
 
 grammar Perl6::Grammar is HLL::Grammar does STD {