X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Flex.icl;h=63a14e02d69a8b5e2dca8e044038eeba9375d692;hb=ca00099482644c76d6d918f536f69db32ac85058;hp=fd4b564ede74a6a2984070a52e4a6dc82fefc97a;hpb=3d1c57710eb0b86f13df392f03131157aec22c21;p=cc1516.git diff --git a/src/lex.icl b/src/lex.icl index fd4b564..63a14e0 100644 --- a/src/lex.icl +++ b/src/lex.icl @@ -21,7 +21,7 @@ lexProgram = some lexToken <* many (satisfy isSpace) <* eof lexToken :: Parser Char TokenValue lexToken = //Comments - (list (fromString "//") >>| until top (item '\n') >>| lexToken) <|> + (list (fromString "//") >>| until top ((item '\n' >>| return Void) <|> eof) >>| lexToken) <|> (list (fromString "/*") >>| until top (list (fromString "*/")) >>| lexToken) <|> //Keyword tokens (lexKw "var" VarToken) <|>