mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +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)))
|
||||
(if (or (null? ls) (zero? len))
|
||||
len
|
||||
(lp (min len (string-mismatch prev (car ls)))
|
||||
(lp (min len (string-cursor->index prev (string-mismatch prev (car ls))))
|
||||
(car ls)
|
||||
(cdr ls))))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue