mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-03 03:06:39 +02:00
filter history duplicates
This commit is contained in:
parent
0f5f552b6d
commit
992544d051
1 changed files with 2 additions and 1 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue