[mm] Rip out PRE-INIT

src/Niecza/Actions.pm

@@ -2443,14 +2443,6 @@ sub statement_prefix__S_gather { my ($cl, $M) = @_;
     $M->{_ast} = Op::Gather->new(node($M), var => $cl->gensym,
         body => $M->{blast}{_ast});
 }
-sub statement_prefix__S_PREMinusINIT { my ($cl, $M) = @_;
-    my $var = $cl->gensym;
-
-    $M->{blast}{_ast}->type('phaser');
-
-    $M->{_ast} = Op::PreInit->new(var => $var, body => $M->{blast}{_ast},
-        node($M));
-}
 
 sub statement_prefix__S_START { my ($cl, $M) = @_;
     my $cv = $cl->gensym;

src/Niecza/Grammar.pm6

@@ -11,9 +11,6 @@ grammar P6 is STD::P6 {
         %*LANG<MAIN> = ::Niecza::Grammar::P6 ;
         self;
     }
-
-    token statement_prefix:sym<PRE-INIT>
-        { :my %*MYSTERY; <sym> <.spacey> <blast> <.explain_mystery> }
 }
 
 grammar Q is STD::Q {

src/Op.pm

@@ -678,28 +678,6 @@ use CgOp;
     no Moose;
 }
 
-{
-    package Op::PreInit;
-    use Moose;
-    extends 'Op';
-
-    has var    => (isa => 'Str', is => 'ro', predicate => 'has_var');
-    has body   => (isa => 'Body', is => 'ro', required => 1);
-
-    sub lift_decls {
-        my ($self) = @_;
-        Decl::PreInit->new(var => $self->var, code => $self->body);
-    }
-
-    sub code {
-        my ($self, $body) = @_;
-        CgOp::scopedlex($self->var);
-    }
-
-    __PACKAGE__->meta->make_immutable;
-    no Moose;
-}
-
 {
     package Op::Super;
     use Moose;

test.pl

@@ -65,13 +65,13 @@
 
 {
     my $x;
-    PRE-INIT {
+    INIT {
         $x = 1;
     }
     ok $x, "changes made in the protolexpad are visible at runtime";
 }
 
-ok PRE-INIT { 1 }, "preinit blocks can return values";
+ok INIT { 1 }, "init blocks can return values";
 
 {
     sub foo() { 42 }
@@ -230,7 +230,7 @@
 
 {
     my $x;
-    my $unclonable-sub = PRE-INIT { sub () { $x } };
+    my $unclonable-sub = INIT { sub () { $x } };
     $x = 42;
     ok $unclonable-sub() == 42, "mainlines are not cloned";
 }