diff options
Diffstat (limited to 'byterun/str.c')
| -rw-r--r-- | byterun/str.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/str.c b/byterun/str.c index 6a61849e3..08bbf839e 100644 --- a/byterun/str.c +++ b/byterun/str.c @@ -53,14 +53,14 @@ CAMLprim value caml_create_string(value len) CAMLprim value caml_string_get(value str, value index) { long idx = Long_val(index); - if (idx < 0 || idx >= caml_string_length(str)) array_bound_error(); + if (idx < 0 || idx >= caml_string_length(str)) caml_array_bound_error(); return Val_int(Byte_u(str, idx)); } CAMLprim value caml_string_set(value str, value index, value newval) { long idx = Long_val(index); - if (idx < 0 || idx >= caml_string_length(str)) array_bound_error(); + if (idx < 0 || idx >= caml_string_length(str)) caml_array_bound_error(); Byte_u(str, idx) = Int_val(newval); return Val_unit; } |