This commit is contained in:
rhiannon morris 2023-03-16 18:20:33 +01:00
parent f5fa63a6df
commit b9825fee55

View file

@ -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