...
|
...
|
@@ -86,8 +86,8 @@
|
86
|
86
|
(cond
|
87
|
87
|
(empty? history) {:current current :selected-history nil}
|
88
|
88
|
(and at-first? going-forward?) {:current orig :selected-history nil}
|
89
|
|
- (and at-last? going-backward?) {} ; do nothing
|
90
|
|
- (and not-cycling? going-forward?) {} ; do nothing
|
|
89
|
+ (and at-last? going-backward?) nil ; do nothing
|
|
90
|
+ (and not-cycling? going-forward?) nil ; do nothing
|
91
|
91
|
(and not-cycling? going-backward?) {:current (historical-input history-end)
|
92
|
92
|
:selected-history {:orig current
|
93
|
93
|
:index history-end}}
|