Add totally awesome error message for foreach.

rakudo · Apr 1, 2010 · b3e08f9 · b3e08f9
1 parent a1a04af
commit b3e08f9
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -371,6 +371,10 @@ token statement_control:sym<for> {
     <xblock(1)>
 }
 
+token statement_control:sym<foreach> {
+    <sym> <.nofun> <.obs("'foreach'", "'for'")>
+}
+
 token statement_control:sym<loop> {
     <sym>
     [ <?[({]> <.panic: "Whitespace required after 'loop'"> ]?