fix parsing of comments. (fixes #18)

Author: Yannick Scherer

src/rewrite_clj/reader.clj

@@ -82,9 +82,11 @@
 (defn read-include-linebreak
   "Read until linebreak and include it."
   [reader]
-  (let [s (read-until reader linebreak?)
-        c (r/read-char reader)]
-    (str s c)))
+  (str
+    (read-until
+      reader
+      #(or (nil? %) (linebreak? %)))
+    (r/read-char reader)))
 
 (defn string->edn
   "Convert string to EDN value."

test/rewrite_clj/parser_test.clj

@@ -187,6 +187,18 @@
                                                :token :whitespace
                                                :token])
 
+(tabular
+  (fact "about parsing comments."
+        (let [n (p/parse-string ?s)]
+          n => node/printable-only?
+          (node/tag n) => :comment
+          (node/string n) => ?s))
+  ?s
+  "; this is a comment\n"
+  ";; this is a comment\n"
+  "; this is a comment"
+  ";; this is a comment")
+
 (tabular
   (fact "about parsing exceptions"
     (p/parse-string ?s) => (throws Exception ?p))