Implement $*GOAL

src/Niecza/Actions.pm

@@ -468,6 +468,8 @@ sub quantified_atom { my ($cl, $M) = @_; # :: RxOp
             $M->{_ast} = RxOp::None->new();
             return;
         }
+        $inner = $cl->encapsulate_regex($M, $inner, passcut => 1,
+            goal => $closer->text);
         $atom = RxOp::Sequence->new(zyg => [$atom,
             RxOp::Tilde->new(closer => $closer->text, dba => $::RX{dba} // '?',
                 zyg => [$inner])]); # TODO

test2.pl

@@ -97,6 +97,10 @@
     is $m<c>, "f", "aliased [] transparent to captures";
     is $m<moo>, "ef", "aliased [] captures string";
     ok !$m<moo><b>, "no spurious nested captures";
+
+    my $save;
+    "()" ~~ / '(' ~ ')' { $save = $*GOAL } /;
+    is $save, ')', 'Setting $*GOAL works';
 }
 
 # {

v6/TODO

@@ -28,6 +28,7 @@ Non-string parameterized role arguments
 $<sym>
 temp $*FOO
 token { $param-role-var }
+Make sure / (\w+) $0 / works
 
 DONE:
 ~