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