catch use of &foo in infix position after ws

perl6 · May 3, 2013 · fa59c1b · fa59c1b
1 parent 316b40b
commit fa59c1b
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -3732,9 +3732,19 @@ grammar P6 is STD {
 
 
     ## junctive and (all)
-    token infix:sym<&>
-        { <sym> <O(|%junctive_and, iffy => 1)> }
-
+    token infix:sym<&> {
+        <sym>
+        [ <?{ %*MEMOS[$¢.pos-1]<ws> }>
+          <?before <identifier> {
+            my $id = $<identifier>[0].Str;
+            if $¢.is_known('&' ~ $id) {
+                self.sorry("Function name &$id not allowed in infix position");
+                return ();
+            }
+          }>
+        ]?
+        <O(|%junctive_and, iffy => 1)>
+    }
 
     ## junctive or (any)
     token infix:sym<|>