fix reading of chars.

Author: Yannick Scherer

src/rewrite_clj/parser/token.clj

@@ -6,8 +6,10 @@
 (defn parse-token
   "Parse a single token."
   [reader]
-  (let [s (r/read-until
-            reader
-            r/whitespace-or-boundary?)
+  (let [s (str
+            (r/next reader)
+            (r/read-until
+              reader
+              r/whitespace-or-boundary?))
         v (r/string->edn s)]
     (node/token-node v s)))

test/rewrite_clj/parser_test.clj

@@ -42,6 +42,8 @@
   "2r1100"                     12
   "1N"                         1N
   ":key"                       :key
+  "\\a"                        \a
+  "\\space"                    \space
   ":1.5"                       :1.5
   ":1.5.0"                     :1.5.0
   ":ns/key"                    :ns/key