···403403let marshal_bytes (buf : bytes) t =
404404 let parts = t.partitions in
405405 let nth i =
406406- try List.nth parts i with Failure _ | Invalid_argument _ -> empty_partition
406406+ try List.nth parts i
407407+ with Failure _ | Invalid_argument _ -> empty_partition
407408 in
408409 let raw =
409410 {