Implement :42nd form of colonpairs.

rakudo · Jun 2, 2014 · 32e8b4a · 32e8b4a
1 parent 394a74d
commit 32e8b4a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1635,6 +1635,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
             if $<var> {
                 make make_pair($*key, $<var>.ast);
             }
+            elsif $<num> {
+                make make_pair($*key, $*W.add_numeric_constant($/, 'Int', $*value));
+            }
             elsif $*value ~~ NQPMatch {
                 my $val_ast := $*value.ast;
                 if $val_ast.isa(QAST::Stmts) && +@($val_ast) == 1 {

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -1660,6 +1660,8 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             [ <[ \[ \( \< \{ ]> {
             $/.CURSOR.typed_panic('X::Syntax::NegatedPair', key => ~$<identifier>) } ]?
             { $*key := $<identifier>.Str; $*value := 0; }
+        | $<num> = [\d+] <identifier> [ <?before <[ \[ \( \< \{ ]>> {} <.sorry("Extra argument not allowed; pair already has argument of " ~ $<num>.Str)> <.circumfix> ]?
+            { $*key := $<identifier>.Str; $*value := +$<num>; }
         | <identifier>
             { $*key := $<identifier>.Str; }
             [