allow comments

Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    lector (0.0.2)
+    lector (0.0.3)
       citrus
 
 GEM

lib/lector.rb

@@ -8,8 +8,9 @@ module Lector
 module Lector
   module RubyParse; end
   def self.read_s(string, opts = {})
-    $_LECTOR_READ_EVAL = opts[:read_eval]
-    Lector::RubyParse::parse(string).val
+    $_LECTOR_READ_EVAL = opts[:read_eval] || false
+    string_without_comments = $_LECTOR_READ_EVAL ? string : string.gsub(/#[^=].*$/, '')
+    Lector::RubyParse::parse(string_without_comments).val
   end
   def self.read_file(file, opts = {})
     read_s(File.read(file), opts)

lib/lector/reader.citrus

@@ -33,7 +33,7 @@ grammar Lector::RubyParse
   end
 
   rule code
-    ("#=" code:string) <Lector::Types::Code>
+    ("#=" string) <Lector::Types::Code>
   end
 
   rule symbol

lib/lector/types.rb

@@ -14,9 +14,9 @@ module String; def val; captures[:content].first.gsub(/\\\"/,"\""); end; end
     module Code
       def val
         if $_LECTOR_READ_EVAL
-          eval(code.to_s.slice(3..-2))
+          eval(to_s.slice(3..-2))
         else
-          code.to_s.slice(3..-2)
+          to_s.slice(3..-2)
         end
       end
     end

spec/lector/reader_spec.rb

@@ -97,10 +97,14 @@
     it "returns the code when read-eval is off" do
       Lector::read_s("#='1+2'").should == '1+2'
     end
+
     it "evals the code when read-eval is on" do
       Lector::read_s("#='1+2'", :read_eval => true).should == 3
     end
 
+    it "copes when strings have comments" do
+      Lector::read_s("[:a#some comment\n,:b,:c]").should == [:a, :b, :c]
+    end
   end
 
   context 'reading files' do