fix flattening/type-conversion of sequential params during inline caching

This commit is contained in:
Nathan Marz 2016-10-29 16:02:56 -04:00
parent 8199c0ee36
commit ce38883e64
2 changed files with 6 additions and 1 deletions

View file

@ -604,7 +604,9 @@
(defn- magic-precompilation* [o]
(cond (sequential? o)
(flatten (map magic-precompilation* o))
(if (list? o)
(map magic-precompilation* o)
(into (empty o) (map magic-precompilation* o)))
(instance? VarUse o)
(if (dynamic-var? (:var o))

View file

@ -1302,3 +1302,6 @@
(let [res (setval [s/ALL s/FIRST] "a" {:a 1 :b 2})]
(is (= {"a" 2} res))
(is (= 1 (count res)))))
(deftest inline-caching-vector-params-test
(is (= [10 [11]] (multi-transform (s/terminal-val [10 [11]]) :a))))