From 992544d0515bd6efe51a6e55a88ebdee71f406da Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 24 Jul 2020 15:59:30 +0900 Subject: [PATCH] filter history duplicates --- lib/chibi/term/edit-line.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/chibi/term/edit-line.scm b/lib/chibi/term/edit-line.scm index f49c1c85..252beac0 100644 --- a/lib/chibi/term/edit-line.scm +++ b/lib/chibi/term/edit-line.scm @@ -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)))