Lex quotes -- need to write a test for this but captain says its time to put devices away...

src/lexer/char.rs

@@ -9,6 +9,7 @@ pub trait Lexable {
     fn is_right_paren(&self) -> bool;
     fn is_hash(&self) -> bool;
     fn is_dot(&self) -> bool;
+    fn is_quote(&self) -> bool;
     fn is_string_quote(&self) -> bool;
     fn is_string_escape_leader(&self) -> bool;
     fn is_string_escaped(&self) -> bool;
@@ -42,6 +43,10 @@ impl Lexable for char {
         *self == '.'
     }
 
+    fn is_quote(&self) -> bool {
+        *self == '''
+    }
+
     fn is_string_quote(&self) -> bool {
         *self == '"'
     }

src/lexer/mod.rs

@@ -133,6 +133,9 @@ impl Lexer {
             self.state = State::Hash;
             self.advance();
         }
+        else if c.is_quote() {
+            return self.token_result(Token::Quote);
+        }
         else if c.is_string_quote() {
             self.state = State::String;
             self.advance();

src/lexer/token.rs

@@ -13,6 +13,7 @@ pub enum Token {
     LeftParen(String),
     LeftVectorParen,
     Number(Number),
+    Quote,
     RightParen(String),
     String(String),
 }