fix #777
This commit is contained in:
parent
9fc7508086
commit
e73f0940b3
|
@ -8,9 +8,9 @@
|
||||||
(assoc :view-id view-id)))
|
(assoc :view-id view-id)))
|
||||||
|
|
||||||
(defn replace-top-element [stack view-id]
|
(defn replace-top-element [stack view-id]
|
||||||
(let [stack' (if (pos? (count stack))
|
(let [stack' (if (> 2 (count stack))
|
||||||
(pop stack)
|
(list :chat-list)
|
||||||
stack)]
|
(pop stack))]
|
||||||
(conj stack' view-id)))
|
(conj stack' view-id)))
|
||||||
|
|
||||||
(defn replace-view [db view-id]
|
(defn replace-view [db view-id]
|
||||||
|
|
Loading…
Reference in New Issue