remove un-perly fatarrow extension

perl6 · Mar 25, 2010 · becd0e9 · becd0e9
1 parent f34ed51
commit becd0e9
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 26 deletions.
diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -280,8 +280,7 @@ method term:sym<lambda>($/)             { make $<pblock>.ast; }
 
 method fatarrow($/) {
     my $past := $<val>.ast;
-    my $name := ?$<quote> ?? $<key>.ast !! $<key>.Str;
-    $past.named( $name );
+    $past.named( $<key>.Str );
     make $past;
 }
 

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -224,9 +224,7 @@ token term:sym<statement_prefix>   { <statement_prefix> }
 token term:sym<lambda>             { <?lambda> <pblock> }
 
 token fatarrow {
-    | <key=.identifier> \h* '=>' <.ws> <val=.EXPR('i=')>
-    | $<quote>=<?[']> <key=.quote_EXPR: ':q'> \h* '=>' <.ws> <val=.EXPR('i=')>
-    | $<quote>=<?["]> <key=.quote_EXPR: ':qq'> \h* '=>' <.ws> <val=.EXPR('i=')>
+    <key=.identifier> \h* '=>' <.ws> <val=.EXPR('i=')>
 }
 
 token colonpair {

diff --git a/t/nqp/47-fatarrow.t b/t/nqp/47-fatarrow.t