Implement quoted values

lib/chervil/ast.rb

@@ -9,6 +9,7 @@ module Chervil
     require "chervil/ast/identifier"
     require "chervil/ast/list"
     require "chervil/ast/number"
+    require "chervil/ast/quotation"
     require "chervil/ast/string"
   end
 end

lib/chervil/ast/quotation.rb

@@ -0,0 +1,21 @@
+module Chervil::AST
+  class Quotation
+    attr_reader :value
+
+    def initialize(value)
+      @value = value
+    end
+
+    def evaluate(env)
+      if @value.is_a?(List)
+        @value.elements
+      else
+        @value.evaluate(env)
+      end
+    end
+
+    def ==(other)
+      @value == other.value
+    end
+  end
+end

lib/chervil/lexer.rb

@@ -38,7 +38,10 @@ module Chervil
         else
           raise "Unexpected character #{current_char}"
         end
-      when '"', '\''
+      when '\''
+        advance
+        Token.new(:quote, '\'')
+      when '"'
         delimiter = current_char
         advance
         string = String.new

lib/chervil/parser.rb

@@ -22,11 +22,19 @@ module Chervil
         identifier
       elsif @current_token.type == :lparen
         list
+      elsif @current_token.type == :quote
+        quotation
       else
         @error = Error.new("Unexpected token #{@current_token.type}: #{@current_token.value}")
       end
     end
 
+    def quotation
+      eat(:quote)
+      value = expr
+      AST::Quotation.new(value)
+    end
+
     def list
       eat(:lparen)
 

spec/lexer_spec.rb

@@ -39,9 +39,6 @@ module Chervil
       expect(Lexer.new('"hello"').get_next_token).to eq(
         Token.new(:string, 'hello')
       )
-      expect(Lexer.new("'world'").get_next_token).to eq(
-        Token.new(:string, 'world')
-      )
     end
 
     it 'lexes booleans' do
@@ -54,5 +51,10 @@ module Chervil
       lexer = Lexer.new('"hello world')
       expect(lexer.get_next_token).to eq(Error.new("Unterminated string"))
     end
+
+    it 'lexes quotes' do
+      lexer = Lexer.new('\'')
+      expect(lexer.get_next_token).to eq(Token.new(:quote, '\''))
+    end
   end
 end

spec/parser_spec.rb

@@ -97,5 +97,19 @@ module Chervil
         )
       )
     end
+
+    it 'parses a quoted value' do
+      expect(parse('\'(1 2 3)').first).to eq(
+        AST::Quotation.new(
+          AST::List.new(
+            [
+              AST::Number.new(1.0),
+              AST::Number.new(2.0),
+              AST::Number.new(3.0),
+            ]
+          )
+        )
+      )
+    end
   end
 end