allow escaped newline in macro arguments

This commit is contained in:
Zachary Snow 2019-10-03 23:29:49 -04:00
parent 9524f0028b
commit ba7fbd5506
1 changed files with 5 additions and 1 deletions

View File

@ -755,7 +755,11 @@ takeMacroArguments = do
case (stack, ch) of
( s,'\\') -> do
ch2 <- takeChar
loop (curr ++ [ch, ch2]) s
if ch2 == '\n'
then do
dropWhitespace
loop curr s
else loop (curr ++ [ch, ch2]) s
([ ], ',') -> return (curr, False)
([ ], ')') -> return (curr, True)