:art: Flag fixing

diff --git a/src/parse/check.c b/src/parse/check.c
index 8a196dc02410ffa925eae41542b828e52057533b..0b11a3cca1c5a48e3702d4260c2a38622e71b2c1 100644 (file)
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -1361,7 +1361,7 @@ ANN m_bool check_class_def(const Env env, const Class_Def c) {
   const Class_Def cdef = t->e->def;
   if(t->e->owner_class && !GET_FLAG(t->e->owner_class, check))
     CHECK_BB(check_class_def(env, t->e->owner_class->e->def))
-  if(GET_FLAG(t, checked))return GW_OK;
+  if(GET_FLAG(t, check))return GW_OK;
   SET_FLAG(t, check);
   if(cdef->base.ext)
     CHECK_BB(cdef_parent(env, cdef))

diff --git a/src/parse/scan1.c b/src/parse/scan1.c
index ab876aa8f981a0cc8d9f211531e070b18223cbaf..c83fa680ed38cd6ca5c791f7881471be3cbd7fa3 100644 (file)
--- a/src/parse/scan1.c
+++ b/src/parse/scan1.c
@@ -511,6 +511,7 @@ ANN m_bool scan1_class_def(const Env env, const Class_Def c) {
   const Type t = c->base.type;
   const Class_Def cdef = t->e->def;
   if(GET_FLAG(t, scan1))return GW_OK;
+  SET_FLAG(cdef, scan1);
   if(t->e->owner_class && !GET_FLAG(t->e->owner_class, scan1))
     CHECK_BB(scan1_class_def(env, t->e->owner_class->e->def))
   SET_FLAG(cdef->base.type, scan1);
@@ -518,7 +519,6 @@ ANN m_bool scan1_class_def(const Env env, const Class_Def c) {
     CHECK_BB(cdef_parent(env, cdef))
   if(cdef->body)
     CHECK_BB(env_body(env, cdef, scan1_section))
-  SET_FLAG(cdef, scan1);
   return GW_OK;
 }