Mimic behavior of 'aref' when signalling out-of-range errors.

The convention used by 'aref' and friends is that for
'args-out-of-range', the error data is a list (SEQ INDEX).  Use the same
convention for the vector-related module functions.

* src/emacs-module.c (check_vec_index): Use vector and index as error
data.

1 files changed, 1 insertions, 2 deletions

diff --git a/src/emacs-module.c b/src/emacs-module.c
index a8386856da7..32b78b0d978 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -925,8 +925,7 @@ check_vec_index (Lisp_Object lvec, ptrdiff_t i)
 {
   CHECK_VECTOR (lvec);
   if (! (0 <= i && i < ASIZE (lvec)))
-    args_out_of_range_3 (INT_TO_INTEGER (i),
-                         make_fixnum (0), make_fixnum (ASIZE (lvec) - 1));
+    args_out_of_range (lvec, INT_TO_INTEGER (i));
 }
 
 static void