Remove $*MAIN-ALLOW-NAMED-ANYWHERE

It was unspecced and temporarily added to transition users of old panda.
rakudo · Sep 28, 2017 · 9cb4b16 · 9cb4b16
1 parent 01d4939
commit 9cb4b16
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/core/Main.pm b/src/core/Main.pm
@@ -10,9 +10,8 @@ my sub MAIN_HELPER($retval = 0) {
     my $m = callframe(1).my<&MAIN>;
     return $retval unless $m;
 
-    my %SUB-MAIN-OPTS := %*SUB-MAIN-OPTS // {};
-    my $no-named-after =
-      !(%SUB-MAIN-OPTS<named-anywhere> // $*MAIN-ALLOW-NAMED-ANYWHERE);
+    my %SUB-MAIN-OPTS  := %*SUB-MAIN-OPTS // {};
+    my $no-named-after := nqp::isfalse(%SUB-MAIN-OPTS<named-anywhere>);
 
     sub thevalue(\a) {
         ((my $type := ::(a)) andthen Metamodel::EnumHOW.ACCEPTS($type.HOW))