Permalink
Browse files

Fix int-error calls. Fixes CTYP-120

  • Loading branch information...
1 parent 22e6e35 commit 815225d5f4123b0adb2a10dd097a806d6cd28b71 @frenchy64 frenchy64 committed Mar 13, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/main/clojure/clojure/core/typed/parse_ast.clj
@@ -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]

0 comments on commit 815225d

Please sign in to comment.