Implement &[+] shortcut form for infix ops.

rakudo · Apr 20, 2010 · 1f9b1dd · 1f9b1dd
1 parent f162a26
commit 1f9b1dd
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 5 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -682,6 +682,9 @@ method variable($/) {
         $past := $<postcircumfix>.ast;
         $past.unshift( PAST::Var.new( :name('$/') ) );
     }
+    elsif $<infixish> {
+        $past := PAST::Op.new( :pirop('find_sub_not_null__Ps'), '&infix:<' ~ $<infixish>.Str ~ '>' );
+    }
     else {
         $past := make_variable($/, ~$/);
     }

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -728,11 +728,17 @@ token variable {
         }
     }> {}
     [
-    | <sigil> <twigil>? <desigilname>
-    | <special_variable>
-    | <sigil> $<index>=[\d+]
-    | <sigil> <?[<[]> <postcircumfix>
-    | $<sigil>=['$'] $<desigilname>=[<[/_!]>]
+    || '&'
+        [
+        | '[' ~ ']' <infixish>
+        ]
+    ||  [
+        | <sigil> <twigil>? <desigilname>
+        | <special_variable>
+        | <sigil> $<index>=[\d+]
+        | <sigil> <?[<[]> <postcircumfix>
+        | $<sigil>=['$'] $<desigilname>=[<[/_!]>]
+        ]
     ]
     [ <?{ $<twigil> && $<twigil>[0] eq '.' }>
         [ <.unsp> | '\\' | <?> ] <?before '('> <arglist=.postcircumfix>