master 1bfc7fd33d7 1/2: Prefer AREF in GET_TRANSLATION_TABLE

[Stefan Kangas]

branch: master
commit 1bfc7fd33d78ff29ee62f5a6b7d7769c1f8099c8
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Prefer AREF in GET_TRANSLATION_TABLE
    
    * src/ccl.c (GET_TRANSLATION_TABLE): Prefer using AREF to depending on
    vector internals.
---
 src/ccl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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