     :else (match-int s (doto (.matcher int-pattern s) .matches))))
 
 (defn- parse-symbol [^String token]
-  (when (not (= "" token))
+  (when-not (= "" token)
     (let [ns-idx (.indexOf token "/")
           ns (if-not (== -1 ns-idx) (.substring token 0 ns-idx))]
       (if (nil? ns)

        (let [n (read rdr true nil true)]
          (if (= n '&)
            (register-arg -1)
            (if (not (instance? Number n))
              (throw (IllegalStateException. "Arg literal must be %, %& or %integer"))
              (register-arg n))))))))


(defn read-keyword
  [reader initch]
  (let [ch (read-char reader)]
    (if-not (whitespace? ch)
      (let [token (read-token reader ch)
            s (parse-symbol token)]
        (if (and s (== -1 (.indexOf token "::")))
