eval() is no more, long live EVAL()

src/core/control.pm

@@ -160,22 +160,10 @@ multi sub warn(*@msg) is hidden_from_backtrace {
     0;
 }
 
-proto sub eval($, *%) {*}  # is DEPRECATED doesn't work in settings
-multi sub eval(Str $code, :$lang = 'perl6', PseudoStash :$context) {
-    DEPRECATED("'EVAL'");
-    my $eval_ctx := nqp::getattr(nqp::decont($context // CALLER::), PseudoStash, '$!ctx');
-    my $?FILES   := 'eval_' ~ (state $no)++;
-    my $compiler := nqp::getcomp($lang);
-    X::Eval::NoSuchLang.new(:$lang).throw
-        if nqp::isnull($compiler);
-    my $compiled := $compiler.compile($code, :outer_ctx($eval_ctx), :global(GLOBAL));
-    nqp::forceouterctx(nqp::getattr($compiled, ForeignCode, '$!do'), $eval_ctx);
-    $compiled();
-}
 proto sub EVAL($, *%) {*}
 multi sub EVAL(Str $code, :$lang = 'perl6', PseudoStash :$context) {
     my $eval_ctx := nqp::getattr(nqp::decont($context // CALLER::), PseudoStash, '$!ctx');
-    my $?FILES   := 'eval_' ~ (state $no)++;
+    my $?FILES   := 'EVAL_' ~ (state $no)++;
     my $compiler := nqp::getcomp($lang);
     X::Eval::NoSuchLang.new(:$lang).throw
         if nqp::isnull($compiler);
@@ -184,7 +172,6 @@ multi sub EVAL(Str $code, :$lang = 'perl6', PseudoStash :$context) {
     $compiled();
 }
 
-
 sub exit($status = 0) {
     $_() for nqp::hllize(nqp::getcurhllsym('@END_PHASERS'));
     nqp::exit(nqp::unbox_i($status.Int));