parse whitespace after loop {}, moritz++

TimToady · TimToady · commit 20ae3bdab5c8 · 2011-10-03T14:41:34.000-07:00
diff --git a/STD.pm6 b/STD.pm6
@@ -1500,7 +1500,7 @@ grammar P6 is STD {
                 <e3=.EXPR>?
             ')'||<.panic: "Malformed loop spec">]
             [ <?before '{' > <.sorry: "Whitespace required before block"> ]?
-        )? <.ws>
+        )? :s
         <block>
     }
 

Original file line number	Diff line number	Diff line change
`@@ -1500,7 +1500,7 @@ grammar P6 is STD {`
`1500`	`1500`	`<e3=.EXPR>?`
`1501`	`1501`	`')'\|\|<.panic: "Malformed loop spec">]`
`1502`	`1502`	`[ <?before '{' > <.sorry: "Whitespace required before block"> ]?`
`1503`		`- )? <.ws>`
	`1503`	`+ )? :s`
`1504`	`1504`	`<block>`
`1505`	`1505`	`}`
`1506`	`1506`