diff options
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 |