Stdlib/MBytes: avoid double raise

This commit is contained in:
Raphaël Proust 2018-04-24 14:05:39 +08:00 committed by Grégoire Henry
parent 1af07b233a
commit f8130eed82

View File

@ -42,7 +42,7 @@ external unsafe_blit_bigstring_to_bytes
let _dummy = Cstruct.byte_to_int
let invalid_bounds j l =
invalid_arg (Printf.sprintf "invalid bounds (index %d, length %d)" j l)
Printf.sprintf "invalid bounds (index %d, length %d)" j l
let blit_from_string src srcoff dst dstoff len =
if len < 0 || srcoff < 0 || dstoff < 0 || String.length src - srcoff < len then