This commit is contained in:
Roman Volosovskyi 2017-01-31 12:41:37 +02:00
parent 9fc7508086
commit e73f0940b3
1 changed files with 3 additions and 3 deletions

View File

@ -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]