Permalink
Browse files

fix typo

  • Loading branch information...
1 parent a656a23 commit 519c64025ed6cc90f08eaaca1fc25153ccec3d4d @frenchy64 frenchy64 committed Feb 5, 2014
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/main/clojure/clojure/core/typed/type_ctors.clj
@@ -1994,7 +1994,8 @@
[v [kt vt]]
(let [rkt (-> kt :t fully-resolve-type)]
(when (r/Value? rkt)
- (let [k (:val kt)]
+ (let [kt rkt
+ k (:val kt)]
(when (and (integer? k) (<= k (count (:types v))))
(r/-hvec (assoc (:types v) k (:t vt))
:filters (assoc (:fs v) k (:fl vt))

0 comments on commit 519c640

Please sign in to comment.