Fix keywords starting with number.

Author: Yannick Scherer

src/rewrite_clj/parser/core.clj

@@ -137,13 +137,17 @@
         (throw-reader reader "Unexpected EOF while reading regular expression.")))))
 
 (defn- parse-keyword 
+  "Parse keyword. Produces `:token` result with an optional map containing a
+   `:namespaced?`field for keywords like `::xyz`."
   [reader]
   (ignore reader)
-  (let [nxt (edn/read reader)]
-    (cond (keyword? nxt) [:token nxt {:namespaced? true}]
-          (symbol? nxt) [:token (keyword nxt)]
-          (not (seq? nxt)) [:token (keyword (str nxt))]
-          :else (throw-reader reader "Invalid token(s) following ':' prefix: " nxt))))
+  (if-let [c (r/peek-char reader)]
+    (if (= c \:)
+      [:token (edn/read reader) {:namespaced? true}]
+      (do
+        (r/unread reader \:)
+        [:token (edn/read reader)]))
+    (throw-reader reader "Unexpected EOF while reading keyword.")))
 
 ;; ## Register Parsers
 

test/rewrite_clj/parser_test.clj

@@ -20,6 +20,8 @@
   "0.1"                        0.1
   "1N"                         1N
   ":key"                       :key
+  ":1.5"                       :1.5
+  ":1.5.0"                     :1.5.0
   ":ns/key"                    :ns/key
   "sym"                        'sym
   "sym#"                       'sym#