input-bugfix: account for offset in termination condition

inhabitedtype · Sep 25, 2019 · 63dd1f0 · 63dd1f0
1 parent 764514a
commit 63dd1f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/input.ml b/lib/input.ml
@@ -100,7 +100,7 @@ let count_while t pos ~f =
   let off    = offset_in_buffer t pos in
   let i      = ref off in
   let len    = t.len in
-  while !i < len && f (Bigstringaf.unsafe_get buffer !i) do 
+  while !i < off + len && f (Bigstringaf.unsafe_get buffer !i) do
     incr i
   done;
   !i - off