$/ and $! are contextuals

src/Metamodel.pm

@@ -794,11 +794,6 @@ sub Body::begin {
         ltm        => $self->ltm,
         run_once   => $args{once} && (!@opensubs || $rtop->run_once));
 
-    if ($self->signature && @{ $self->signature->params } >= 1 &&
-            $self->signature->params->[0]->slot eq '$¢') {
-        $metabody->lexicals->{'$/'} = Metamodel::Lexical::Alias->new('$¢');
-    }
-
     $unit->get_stash(@{ $metabody->cur_pkg });
 
     push @opensubs, $metabody; # always visible in the signature XXX
@@ -810,8 +805,20 @@ sub Body::begin {
 
     pop @opensubs if $self->transparent;
 
-    $self->do->begin;
-    $metabody->code($self->do);
+    my $do = $self->do;
+
+    if ($self->signature && @{ $self->signature->params } >= 1 &&
+            $self->signature->params->[0]->slot eq '$¢') {
+        $do = Op::StatementList->new(children => [
+                Op::CallSub->new(
+                    invocant => Op::Lexical->new(name => '&infix:<=>'),
+                    args => [ Op::Lexical->new(name => '$*/', declaring => 1),
+                              Op::Lexical->new(name => '$¢') ]),
+                $do]);
+    }
+
+    $do->begin;
+    $metabody->code($do);
 
     $metabody->close;
     pop @opensubs unless $self->transparent;

src/Niecza/Actions.pm

@@ -1702,6 +1702,7 @@ sub variable { my ($cl, $M) = @_;
         }
     } elsif ($M->{special_variable}) {
         $name = substr($M->{special_variable}->Str, 1);
+        $twigil = '*' if $name eq '/' or $name eq '!';
     } elsif ($M->{index}) {
         $M->{_ast} = { capid => $M->{index}{_ast}, term =>
             # maybe a little of a cheat
@@ -1737,6 +1738,7 @@ sub variable { my ($cl, $M) = @_;
 
 sub special_variable {}
 sub special_variable__S_DollarSlash {}
+sub special_variable__S_DollarBang {}
 sub special_variable__S_Dollar_a2_ {}
 
 sub param_sep {}