Prefer AREF in GET_TRANSLATION_TABLE

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

1 files changed, 1 insertions, 1 deletions

diff --git a/src/ccl.c b/src/ccl.c
index 1d3ad010382..b4dda404b95 100644
--- 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