Intercept method not found error for STORE

So that we can give a better than LTA error message
rakudo · May 20, 2014 · 10ceb28 · 10ceb28
1 parent 2ea11cc
commit 10ceb28
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.nqp b/src/Perl6/Metamodel/BOOTSTRAP.nqp
@@ -2929,6 +2929,12 @@ nqp::sethllconfig('perl6', nqp::hash(
     },
     'method_not_found_error', -> $obj, str $name {
         my $type := $obj.HOW.name($obj);
+        if $name eq 'STORE' {
+            my %ex := nqp::gethllsym('perl6', 'P6EX');
+            if !nqp::isnull(%ex) && nqp::existskey(%ex,'X::Assignment::RO') {
+                nqp::atkey(%ex, 'X::Assignment::RO')($type);
+            }
+        }
         nqp::die("Method '$name' not found for invocant of class '$type'");
     }
 #?endif