mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
fixing disjoint cursor type bug in string-common-prefix-length
This commit is contained in:
parent
f32e3086b5
commit
d8a29fed49
1 changed files with 1 additions and 1 deletions
|
@ -63,7 +63,7 @@
|
||||||
(ls (cdr strings)))
|
(ls (cdr strings)))
|
||||||
(if (or (null? ls) (zero? len))
|
(if (or (null? ls) (zero? len))
|
||||||
len
|
len
|
||||||
(lp (min len (string-mismatch prev (car ls)))
|
(lp (min len (string-cursor->index prev (string-mismatch prev (car ls))))
|
||||||
(car ls)
|
(car ls)
|
||||||
(cdr ls))))))
|
(cdr ls))))))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue