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

fix string-mismatch usage in (chibi repl)

Browse source
This commit is contained in:
Alex Shinn 2019-08-16 23:39:36 +08:00
parent 83cfc7dd53
commit 42b6eeff1b
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/repl.scm
View file

@ -63,9 +63,11 @@
(ls (cdr strings)))
(if (or (null? ls) (zero? len))
len
(lp (min len (string-cursor->index prev (string-mismatch prev (car ls))))
(call-with-values (lambda () (string-mismatch prev (car ls)))
(lambda (i1 i2)
(lp (min len (string-cursor->index prev i1))
(car ls)
(cdr ls))))))
(cdr ls))))))))
(define (make-sexp-buffer-completer)
(buffer-make-completer