Author: jonathan
Date: Wed Nov 26 07:26:57 2008
New Revision: 33222
Modified:
trunk/languages/perl6/src/builtins/guts.pir
Log:
[rakudo] When we fail a type check on a parameter, report the name of the thing
we were calling.
Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir (original)
+++ trunk/languages/perl6/src/builtins/guts.pir Wed Nov 26 07:26:57 2008
@@ -157,7 +157,13 @@
$I0 = type.'ACCEPTS'(value)
if $I0 goto ok
- 'die'('Parameter type check failed')
+ $P0 = getinterp
+ $P0 = $P0['sub' ; 1]
+ $S0 = $P0
+ if $S0 goto have_name
+ $S0 = '<anon>'
+ have_name:
+ 'die'('Parameter type check failed in call to ', $S0)
ok:
.end
