fixing disjoint cursor type bug in string-common-prefix-length

This commit is contained in:
Alex Shinn 2016-04-08 22:56:53 +09:00
parent f32e3086b5
commit d8a29fed49

View file

@ -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))))))