From f8130eed82a73eb83599134d9ca45394b29c92e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Tue, 24 Apr 2018 14:05:39 +0800 Subject: [PATCH] Stdlib/MBytes: avoid double raise --- src/lib_stdlib/mBytes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lib_stdlib/mBytes.ml b/src/lib_stdlib/mBytes.ml index 22df84a77..05d27c897 100644 --- a/src/lib_stdlib/mBytes.ml +++ b/src/lib_stdlib/mBytes.ml @@ -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