filter history duplicates

This commit is contained in:
Alex Shinn 2020-07-24 15:59:30 +09:00
parent 0f5f552b6d
commit 992544d051

View file

@ -106,7 +106,8 @@
(define (history-commit! h x)
(history-reset! h)
(history-insert! h x))
(if (not (and (pair? (history-past h)) (equal? x (car (history-past h)))))
(history-insert! h x)))
(define (history-prev! h)
(let ((past (history-past h)))