Implement abbreviated pair syntax :$foo

src/Niecza/Actions.pm

@@ -1476,6 +1476,20 @@ sub colonpair { my ($cl, $M) = @_;
     }
     my $tv = ref($M->{v}) ? $M->{v}{_ast} :
         Op::Lexical->new(name => $M->{v} ? 'True' : 'False');
+
+    if (!defined $tv) {
+        if (substr($M->{v}->Str,1,1) eq '<') {
+            $tv = Op::CallMethod->new(name => 'at-key',
+                receiver => Op::ContextVar->new(name => '$*/'),
+                args => [Op::StringLiteral->new(text => $M->{k})]);
+        } else {
+            $tv = $cl->do_variable_reference($M,
+                { sigil => $M->{v}{sigil}->Str,
+                    twigil => ($M->{v}{twigil}[0] ? $M->{v}{twigil}[0]->Str : ''),
+                    name => $M->{k} });
+        }
+    }
+
     $M->{_ast} = { ext => $n, term => Op::SimplePair->new(
             key => $M->{k}, value => $tv) };
 }

src/RxOp.pm

@@ -329,6 +329,7 @@ use CgOp;
     extends 'RxOp';
 
     sub uncut { $_[0]->zyg->[0] }
+    sub tocclist { $_[0]->uncut->tocclist }
 
     sub code {
         my ($self, $body) = @_;

v6/TODO

@@ -2,7 +2,6 @@ Cursor.cursor_fresh
 Cursor.mixin
 Parcel.LISTSTORE
 Highwater stuff
-<after>
 
 NOT NEEDED FOR #phasers:
 Cursor.canonicalize_name
@@ -22,6 +21,7 @@ DONE:
 ~
 <?{ }>
 $/ and $¢ in subrule argument lists
+<after>
 Change STD to use $<foo> = { 1 }
 circumfix:<[ ]>
 Cursor.deb