Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

filter history duplicates

Browse source
This commit is contained in:
Alex Shinn 2020-07-24 15:59:30 +09:00
parent 0f5f552b6d
commit 992544d051
1 changed files with 2 additions and 1 deletions

3
lib/chibi/term/edit-line.scm
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)))