Merge pull request #1406 from frenchy64/patch-1
Rely less on undocumented features
This commit is contained in:
commit
243a9918f9
1 changed files with 2 additions and 2 deletions
|
@ -419,8 +419,8 @@
|
||||||
(if (or (-> left meta :prepend)
|
(if (or (-> left meta :prepend)
|
||||||
(-> right meta :prepend))
|
(-> right meta :prepend))
|
||||||
(-> (concat right left)
|
(-> (concat right left)
|
||||||
(with-meta (merge (meta left)
|
(with-meta (merge (or (meta left) {})
|
||||||
(select-keys (meta right) [:displace]))))
|
(select-keys (or (meta right) {}) [:displace]))))
|
||||||
(concat left right))
|
(concat left right))
|
||||||
|
|
||||||
(= (class left) (class right)) right
|
(= (class left) (class right)) right
|
||||||
|
|
Loading…
Reference in a new issue