Permalink
Browse files

panic/sorry/worry delegate to typed variants.

  • Loading branch information...
jnthn committed Dec 15, 2012
1 parent c9a977a commit d23ab1ea986f301248baaaeda41fde1722da5db2
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/Perl6/Grammar.pm
View
@@ -203,13 +203,13 @@ role STD {
}
method panic(*@args) {
$*W.throw(self.MATCH, < X Comp AdHoc >, payload => nqp::join('', @args))
self.typed_panic('X::Comp::AdHoc', payload => nqp::join('', @args))
}
method sorry(*@args) {
$*W.throw(self.MATCH, < X Comp AdHoc >, payload => nqp::join('', @args))
self.typed_sorry('X::Comp::AdHoc', payload => nqp::join('', @args))
}
method worry(*@args) {
$*W.throw(self.MATCH, < X Comp AdHoc >, payload => nqp::join('', @args))
self.typed_worry('X::Comp::AdHoc', payload => nqp::join('', @args))
}
method typed_panic($type_str, *%opts) {

0 comments on commit d23ab1e

Please sign in to comment.