Merge pull request #1406 from frenchy64/patch-1

Rely less on undocumented features
This commit is contained in:
Michael Klishin 2014-01-02 08:16:56 -08:00
commit 243a9918f9

View file

@ -419,8 +419,8 @@
(if (or (-> left meta :prepend)
(-> right meta :prepend))
(-> (concat right left)
(with-meta (merge (meta left)
(select-keys (meta right) [:displace]))))
(with-meta (merge (or (meta left) {})
(select-keys (or (meta right) {}) [:displace]))))
(concat left right))
(= (class left) (class right)) right