implement char literals

1 files changed, 6 insertions, 1 deletions

diff --git a/src/lisp/parse.rs b/src/lisp/parse.rs
index 4e0f427..7cca434 100644
--- a/src/lisp/parse.rs
+++ b/src/lisp/parse.rs
@@ -58,7 +58,12 @@ impl<'lex> Parser<'lex> {
                     .parse::<i64>()
                     .map(|n| LispExpr::Number(LispNumber::Integer(n)))
                     .map_err(|_| ParseError::new(span, ParseErrorKind::LiteralParseError).into()),
-                Token::String(s) => Ok(LispExpr::StringLit(s.into())),
+                Token::String(s) => Ok(LispExpr::StringLit(s[1..s.len() - 1].into())),
+                Token::Char(s) => Ok(LispExpr::Char(s.chars().nth(2).ok_or_else(
+                    || -> LispError {
+                        ParseError::new(span, ParseErrorKind::LiteralParseError).into()
+                    },
+                )?)),
                 Token::Name(n) => Ok(name_expr(n)),
                 Token::BackQuote => {
                     total_backticks += 1;