Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix int-error calls. Fixes CTYP-120
  • Loading branch information
frenchy64 committed Mar 13, 2014
1 parent 22e6e35 commit 815225d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/main/clojure/clojure/core/typed/parse_ast.clj
Expand Up @@ -299,9 +299,9 @@
(defn parse-TFn
[[_ binder bodysyn :as tfn]]
(when-not (= 3 (count tfn))
(err/int-error "Wrong number of arguments to TFn: " (pr-str tfn)))
(err/int-error (str "Wrong number of arguments to TFn: " (pr-str tfn))))
(when-not (every? vector? binder)
(err/int-error "TFn binder should be vector of vectors: " (pr-str tfn)))
(err/int-error (str "TFn binder should be vector of vectors: " (pr-str tfn))))
(let [; don't scope a free in its own bounds. Should review this decision
[fs free-maps] (reduce
(fn [[fs prsed] b]
Expand Down

0 comments on commit 815225d

Please sign in to comment.