Prefer AREF in GET_TRANSLATION_TABLE

* src/ccl.c (GET_TRANSLATION_TABLE): Prefer using AREF to depending on
vector internals.

diff --git a/src/ccl.c b/src/ccl.c
index 1d3ad01038262ebe4559b1a240109a29fcfdaa40..b4dda404b951f4e7e3f061b915a201f129434d3a 100644 (file)
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -873,7 +873,7 @@ static struct ccl_prog_stack ccl_prog_stack_struct[256];
 static inline Lisp_Object
 GET_TRANSLATION_TABLE (int id)
 {
-  return XCDR (XVECTOR (Vtranslation_table_vector)->contents[id]);
+  return XCDR (AREF (Vtranslation_table_vector, id));
 }
 
 void