From 01e254893fede2c88fa7d2210da9e03af3a12617 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Thu, 10 Apr 2014 23:20:11 -0500 Subject: Ruby: add step7_quote --- ruby/reader.rb | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'ruby/reader.rb') diff --git a/ruby/reader.rb b/ruby/reader.rb index eddb319..d6d9b8d 100644 --- a/ruby/reader.rb +++ b/ruby/reader.rb @@ -59,6 +59,10 @@ def read_form(rdr) token = rdr.peek return case rdr.peek when ";" then nil + when "'" then rdr.next; List.new [:quote, read_form(rdr)] + when "`" then rdr.next; List.new [:quasiquote, read_form(rdr)] + when "~" then rdr.next; List.new [:unquote, read_form(rdr)] + when "~@" then rdr.next; List.new [:"splice-unquote", read_form(rdr)] when "(" then read_list(rdr, List, "(", ")") when ")" then raise "unexpected ')'" when "[" then read_list(rdr, Vector, "[", "]") -- cgit v1.2.3