Merge pull request #87 from FROGGS/patch-3

proper error message for usage of 'do...for'
rakudo · Apr 16, 2013 · a07b37e · a07b37e
2 parents f17d339 + 41a92e8
commit a07b37e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -951,7 +951,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                     my $sp := $<EXPR><statement_prefix>;
                     if $sp && $sp<sym> eq 'do' {
                         my $s := $<statement_mod_loop>[0]<sym>;
-                        $/.CURSOR.obs("do..." ~ $s, "repeat..." ~ $s);
+                        $/.CURSOR.obs("do..." ~ $s, "repeat...while or repeat...until");
                     }
                 }
             ]?