(defn
up!
"Changes the current line and returns the previous line from console-history, or nil if there is none."
[console-history]
(let
[line (get-previous-line console-history)]
(if
line
(swap! console-history update :current-line dec)
(swap! console-history assoc :current-line -1))
line))