fix nested conditional preprocessor directives

This commit is contained in:
Zachary Snow 2019-03-28 18:04:28 -04:00
parent 848f8cbd61
commit 7e37fe4338
1 changed files with 1 additions and 1 deletions

View File

@ -21,7 +21,7 @@ isNewline :: Token -> Bool
isNewline (Token t _ _) = t == Spe_Newline
unskippableDirectives :: [String]
unskippableDirectives = ["else", "elsif", "endif"]
unskippableDirectives = ["else", "elsif", "endif", "ifdef", "ifndef"]
preprocess :: [Token] -> (StateT PP IO) [Token]
preprocess tokens = pp tokens >>= return . combineNumbers