... | ... |
@@ -75,7 +75,7 @@ |
75 | 75 |
orig (some-> cs :selected-history :orig) |
76 | 76 |
idx (some-> cs :selected-history :index) |
77 | 77 |
history-end (- (count history) 1) |
78 |
- historical-input #(-> history (get %) :input) |
|
78 |
+ historical-input #(-> history (nth %) :input) |
|
79 | 79 |
next (case direction :backward dec :forward inc) |
80 | 80 |
at-first? (= idx history-end) |
81 | 81 |
at-last? (= idx 0) |