diff --git a/lib/Quox/Parser/Lexer.idr b/lib/Quox/Parser/Lexer.idr index 9c38a00..1353b3b 100644 --- a/lib/Quox/Parser/Lexer.idr +++ b/lib/Quox/Parser/Lexer.idr @@ -64,7 +64,7 @@ syntaxChars : List Char syntaxChars = ['(', ')', '[', ']', '{', '}', '"', '\'', ',', '.', ';'] private -stra, isSymCont : Char -> Bool +isSymStart, isSymCont : Char -> Bool isSymStart c = not (c `elem` syntaxChars) && isSymChar c isSymCont c = c == '\'' || isSymStart c