repeat requires while or until

TimToady · TimToady · commit 820200c05f5d · 2012-08-08T17:33:54.000-07:00
diff --git a/STD.pm6 b/STD.pm6
@@ -1500,7 +1500,9 @@ grammar P6 is STD {
             | $<wu>=['while'|'until']<.keyspace>
               <xblock>
             | <pblock>
-              $<wu>=['while'|'until'][<.keyspace>||<.panic: "Whitespace required after keyword">] <EXPR>
+              [$<wu>=['while'|'until'] || <.panic: '"repeat" is missing its "while" or "until"'> ]
+              [<.keyspace> || <.panic: "Whitespace required after keyword">]
+              <EXPR>
         ]
     }
 

Original file line number	Diff line number	Diff line change
`@@ -1500,7 +1500,9 @@ grammar P6 is STD {`
`1500`	`1500`	`\| $<wu>=['while'\|'until']<.keyspace>`
`1501`	`1501`	`<xblock>`
`1502`	`1502`	`\| <pblock>`
`1503`		`- $<wu>=['while'\|'until'][<.keyspace>\|\|<.panic: "Whitespace required after keyword">] <EXPR>`
	`1503`	`+ [$<wu>=['while'\|'until'] \|\| <.panic: '"repeat" is missing its "while" or "until"'> ]`
	`1504`	`+ [<.keyspace> \|\| <.panic: "Whitespace required after keyword">]`
	`1505`	`+ <EXPR>`
`1504`	`1506`	`]`
`1505`	`1507`	`}`
`1506`	`1508`