fix handling of symbols with trailing quote. (closes #24)

Author: Yannick Scherer

src/rewrite_clj/parser/token.clj

@@ -17,6 +17,17 @@
            (read-to-boundary reader)
            ""))))
 
+(defn- symbol-node
+  "Symbols allow for trailing quotes that have to be handled
+   explicitly."
+  [reader value value-string]
+  (if (= (r/peek reader) \')
+    (let [s (str value-string (r/next reader))]
+      (node/token-node
+        (r/string->edn s)
+        s))
+    (node/token-node value value-string)))
+
 (defn parse-token
   "Parse a single token."
   [reader]
@@ -26,4 +37,6 @@
                  (read-to-boundary reader))
                (str first-char))
         v (r/string->edn s)]
-    (node/token-node v s)))
+    (if (symbol? v)
+      (symbol-node reader v s)
+      (node/token-node v s))))