add reduce, classify, categorize to commatraps

also, lambdas can also begin with -> or <->
rakudo · Apr 4, 2015 · df5acd2 · df5acd2
1 parent 4afc9e9
commit df5acd2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -103,7 +103,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
     our $STATEMENT_PRINT;
 
     # Could add to this based on signatures.
-    our %commatrap := nqp::hash('&grep', 1, '&map', 1, '&sort', 1);
+    our %commatrap := nqp::hash('&grep', 1, '&map', 1, '&sort', 1, '&reduce', 1, '&classify', 1, '&categorize', 1,);
 
     INIT {
         # If, e.g., we support Perl up to v6.1.2, set
@@ -4404,7 +4404,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
                         $prelen := 100 if $prelen > 100;
                         my $pre := nqp::substr($/.orig, $<longname>.from - $prelen, $prelen);
                         my $post := nqp::substr($/.orig, $<args>.to, 100);
-                        if nqp::index($pre, "==>") < 0 && nqp::index($post, "<==") < 0 && $<args>.Str ~~ /^\s*'{'/ {
+                        if nqp::index($pre, "==>") < 0 && nqp::index($post, "<==") < 0 && $<args>.Str ~~ /^\s*['{'|'->'|'<->']/ {
                             $/.CURSOR.missing("comma after block argument to " ~ nqp::substr(@name[0],1));
                         }
                     }