Skip to content

Commit

Permalink
clean up error message
Browse files Browse the repository at this point in the history
  • Loading branch information
frenchy64 committed Sep 25, 2013
1 parent 044434b commit a1342d4
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/main/clojure/clojure/core/typed/parse_unparse.clj
Expand Up @@ -654,10 +654,10 @@
(let [all-dom (take-while #(not= '-> %) f) (let [all-dom (take-while #(not= '-> %) f)
[_ rng & opts-flat :as chk] (drop-while #(not= '-> %) f) ;opts aren't used yet [_ rng & opts-flat :as chk] (drop-while #(not= '-> %) f) ;opts aren't used yet
_ (when-not (<= 2 (count chk)) _ (when-not (<= 2 (count chk))
(u/int-error (str (parse-in-ns) ": Incorrect function syntax: " f))) (u/int-error (str "Incorrect function syntax: " f)))


_ (when-not (even? (count opts-flat)) _ (when-not (even? (count opts-flat))
(u/int-error (str (parse-in-ns) ": Incorrect function syntax, must have even number of keyword parameters: " f))) (u/int-error (str "Incorrect function syntax, must have even number of keyword parameters: " f)))


opts (apply hash-map opts-flat) opts (apply hash-map opts-flat)


Expand Down

0 comments on commit a1342d4

Please sign in to comment.