:art: Simplify subscript check

diff --git a/src/parse/check.c b/src/parse/check.c
index 2dfe9668e9d855289ba35bf7a7a777db6fd27821..0435deb657881b5b73af7a8f5cdf4c9ab7d665e4 100644 (file)
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -40,8 +40,9 @@ ANN static m_bool check_implicit(const Env env, const m_str str,
 
 ANN m_bool check_exp_array_subscripts(const Env env, const Exp exp) {
   CHECK_OB(check_exp(env, exp))
+  const Type t = env->gwion->type[et_int];
   Exp e = exp;
-  do CHECK_BB(check_implicit(env, "@access", e, env->gwion->type[et_int]))
+  do CHECK_BB(check_implicit(env, "@access", e, t))
   while((e = e->next));
   return GW_OK;
 }