Implement (expr)

Niecza/Actions.pm

@@ -179,6 +179,11 @@ sub circumfix__S_Lt_Gt { my ($cl, $M) = @_;
 }
 sub circumfix__S_LtLt_GtGt { goto &circumfix__S_Lt_Gt }
 
+sub circumfix__S_Paren_Thesis { my ($cl, $M) = @_;
+    $M->{_ast} = Op::StatementList->new(children => 
+        [ grep { defined $_ } @{ $M->{semilist}{_ast} } ]);
+}
+
 sub infixish { my ($cl, $M) = @_;
     $M->sorry("Metaoperators NYI") if $M->{infix_postfix_meta_operator}[0];
     $M->sorry("Adverbs NYI") if $M->{colonpair};
@@ -858,6 +863,10 @@ sub statementlist { my ($cl, $M) = @_;
         [ grep { defined $_ } map { $_->{_ast} } @{ $M->{statement} } ]);
 }
 
+sub semilist { my ($cl, $M) = @_;
+    $M->{_ast} = [  map { $_->{_ast} } @{ $M->{statement} } ];
+}
+
 sub package_def { my ($cl, $M) = @_;
     if ($::PKGDECL ne 'class') {
         $M->sorry('Non-class package definitions are not yet supported');