From 96f1845afdb816515bba83ad4bb8fee6bc466557 Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Fri, 2 Jan 2015 23:33:50 -0600 Subject: Misc cleanup. Move *host-language* to stepA. --- ruby/reader.rb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'ruby/reader.rb') diff --git a/ruby/reader.rb b/ruby/reader.rb index eb9ae7b..641e65c 100644 --- a/ruby/reader.rb +++ b/ruby/reader.rb @@ -31,7 +31,7 @@ def read_atom(rdr) return case token when /^-?[0-9]+$/ then token.to_i # integer when /^-?[0-9][0-9.]*$/ then token.to_f # float - when /^"/ then parse_str(token) # string + when /^".*"$/ then parse_str(token) # string when /^:/ then "\u029e" + token[1..-1] # keyword when "nil" then nil when "true" then true @@ -57,7 +57,6 @@ def read_list(rdr, klass, start="(", last =")") end def read_form(rdr) - token = rdr.peek return case rdr.peek when ";" then nil when "'" then rdr.next; List.new [:quote, read_form(rdr)] -- cgit v1.2.3