:art: array_sbuscript constants

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