reynir/banawa-chat
1
0
Fork 0
mirror of https://github.com/reynir/banawa-chat.git synced 2024-11-22 04:47:53 +00:00
Code Issues 1 Packages Projects Releases Wiki Activity

Rope: Fix negative index

Browse source 
Not 100% sure if this is correct :/
This commit is contained in:
Reynir Björnsson 2023-05-12 14:27:27 +02:00
parent 53e54b5b9b
commit 8598f7011f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
rope.ml
View file

@ -162,7 +162,7 @@ module Make (S : STRING) (C : CONTROL) = struct
if len = 0 then empty else mksub ofs stop t if len = 0 then empty else mksub ofs stop t
let rec safe_iter_range f i n = function let rec safe_iter_range f i n = function
| Str (s, ofs, _) -> S.iter_range f s (ofs + i) n | Str (s, ofs, _) -> S.iter_range f s (max 0 (ofs + i)) n
| App (t1, t2, _, _) -> | App (t1, t2, _, _) ->
let n1 = length t1 in let n1 = length t1 in
if i + n <= n1 then safe_iter_range f i n t1 if i + n <= n1 then safe_iter_range f i n t1