parse whitespace after loop {}, moritz++

perl6 · Oct 3, 2011 · 20ae3bd · 20ae3bd
1 parent 8b331d2
commit 20ae3bd
Showing 1 changed file with 1 addition and 1 deletion.
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>
     }