Improve error for malformed loop statement.

Brings us in line with STD.
rakudo · Jul 15, 2015 · 270d179 · 270d179
1 parent 0d660bb
commit 270d179
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -1376,9 +1376,10 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
         <sym><.kok>
         :s''
         [ '('
-            <e1=.EXPR>? ';'
-            <e2=.EXPR>? ';'
-            <e3=.EXPR>?
+            [
+            <e1=.EXPR>? ';' <e2=.EXPR>? ';' <e3=.EXPR>?
+            || <.malformed('loop spec')>
+            ]
         ')' ]?
         <block>
     }