diff options
author | Akshay <[email protected]> | 2020-10-14 18:30:05 +0100 |
---|---|---|
committer | Akshay <[email protected]> | 2020-10-14 18:30:05 +0100 |
commit | c9958740743bd38f600d6b3d2f47af474def714f (patch) | |
tree | c8aafe0b12064ffcd2fca6d41819ca013b65f076 /src | |
parent | 14ad0667bf25351e522faa7d9fbb3ff31619d92e (diff) |
fix vector and bool interactions
Diffstat (limited to 'src')
-rw-r--r-- | src/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Parser.hs b/src/Parser.hs index 69197b8..115203b 100644 --- a/src/Parser.hs +++ b/src/Parser.hs | |||
@@ -64,7 +64,7 @@ parseVector = do | |||
64 | return $ Vector x | 64 | return $ Vector x |
65 | 65 | ||
66 | symbol :: Parser Char | 66 | symbol :: Parser Char |
67 | symbol = oneOf "!$%&|*+:/-=<?>@^_~" | 67 | symbol = oneOf "!#$%&|*+:/-=<?>@^_~" |
68 | 68 | ||
69 | parseId :: Parser Expr | 69 | parseId :: Parser Expr |
70 | parseId = do | 70 | parseId = do |
@@ -99,11 +99,11 @@ parseLispValue = | |||
99 | parseString | 99 | parseString |
100 | <|> try parseFloat | 100 | <|> try parseFloat |
101 | <|> try parseInt | 101 | <|> try parseInt |
102 | <|> try parseVector | ||
102 | <|> try parseId | 103 | <|> try parseId |
103 | <|> parseQuote | 104 | <|> parseQuote |
104 | <|> parseQuasiquote | 105 | <|> parseQuasiquote |
105 | <|> parseUnquote | 106 | <|> parseUnquote |
106 | <|> parseVector | ||
107 | -- handles lists and dotted lists | 107 | -- handles lists and dotted lists |
108 | <|> do | 108 | <|> do |
109 | char '(' >> optionalWhiteSpace | 109 | char '(' >> optionalWhiteSpace |