Fix behavior with large undo lists

This commit is contained in:
Sergey Tselovalnikov 2016-01-27 19:30:27 +03:00 committed by Daniel Compton
parent 4115e410d6
commit bb78981e1d
1 changed files with 2 additions and 2 deletions

View File

@ -53,10 +53,10 @@
"Stores the value currently in app-db, so the user can later undo"
[explanation]
(clear-redos!)
(reset! undo-list (vec (take
(reset! undo-list (vec (take-last
@max-undos
(conj @undo-list @app-db))))
(reset! undo-explain-list (vec (take
(reset! undo-explain-list (vec (take-last
@max-undos
(conj @undo-explain-list @app-explain))))
(reset! app-explain explanation))