Merge pull request 'Fix Cachet_lwt.next' (#8) from fix-lwt into main

Reviewed-on: #8
2025-01-07 17:36:14 +00:00 · 2025-01-07 17:36:14 +00:00 · 977e28a036
commit 977e28a036
parent 8796b18ae7 df13234fe1
1 changed files with 1 additions and 1 deletions
--- a/lib-lwt/cachet_lwt.ml
+++ b/lib-lwt/cachet_lwt.ml
@ -94,4 +94,4 @@ let get_int64_be t logical_address =

 let next t slice =
  let pagesize = Cachet.pagesize t in
-  load t (slice.Cachet.offset + (1 lsl pagesize))
+  load t (slice.Cachet.offset + pagesize)