Should not curry .WHAT and other interogative macros.

rakudo · Jul 15, 2010 · 3d0399a · 3d0399a
1 parent 727782e
commit 3d0399a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3178,6 +3178,10 @@ INIT {
     %not_curried{'&infix:<~~>'}   := 1;
     %not_curried{'&infix:<=>'}    := 1;
     %not_curried{'&infix:<:=>'}   := 1;
+    %not_curried{'WHAT'}          := 1;
+    %not_curried{'HOW'}           := 1;
+    %not_curried{'WHO'}           := 1;
+    %not_curried{'WHERE'}         := 1;
 }
 sub whatever_curry($past, $upto_arity) {
     if $past.isa(PAST::Op) && !%not_curried{$past.name} {