@@ -132,7 +132,9 @@ comment = do
132 return ()
132 return ()
134bgroup :: LP ()
134bgroup :: LP ()
135−bgroup = () <$ char '{'
135+bgroup = try $ do
136+ skipMany (spaceChar <|> try (newline <* notFollowedBy blankline))
136 <|> () <$ controlSeq "bgroup"
138 <|> () <$ controlSeq "bgroup"
137 <|> () <$ controlSeq "begingroup"
139 <|> () <$ controlSeq "begingroup"