:art: update type_ref

diff --git a/include/env/type.h b/include/env/type.h
index d7a234a0a3d7a3d4689c7802938e10ef76385857..6c0b4fc4bb6f2bfaf06af66ec38414b1a986a704 100644 (file)
--- a/include/env/type.h
+++ b/include/env/type.h
@@ -73,7 +73,7 @@ ANN Symbol array_sym(const Env env, const Type src,
 ANN static inline Type array_base_simple(Type t) {
   return t->array_depth ? t->info->base_type : t;
 }
-ANN m_bool    type_ref(Type) __attribute__((pure));
+ANN bool    type_ref(Type) __attribute__((pure));
 ANN Type      actual_type(const struct Gwion_ *gwion, const Type t);
 ANN static inline m_uint env_push_type(const Env env, const Type type) {
   return env_push(env, type, type->nspc);

diff --git a/src/env/type.c b/src/env/type.c
index e0e2ed18d2b3ad75063dd8cc61f8ce25fe9c6a50..05b38149a3ca7296df3706296ac3512cd91fdc30 100644 (file)
--- a/src/env/type.c
+++ b/src/env/type.c
@@ -104,21 +104,21 @@ ANN Type array_type(const Env env, const Type src, const m_uint depth) {
   return op_check(env, &opi);
 }
 
-ANN m_bool type_ref(Type t) {
+ANN bool type_ref(Type t) {
   do {
-    if (tflag(t, tflag_empty)) return GW_OK;
+    if (tflag(t, tflag_empty)) return true;
     if (tflag(t, tflag_typedef) && tflag(t, tflag_cdef)) {
       if (t->info->cdef->base.ext && t->info->cdef->base.ext->array) {
         if (!t->info->cdef->base.ext->array->exp)
-          return GW_OK;
+          return true;
         else {
           const Type type = t->info->parent->info->base_type;
-          if (tflag(type, tflag_empty)) return GW_OK;
+          if (tflag(type, tflag_empty)) return true;
         }
       }
     }
   } while ((t = t->info->parent));
-  return 0;
+  return false;
 }
 
 ANN m_uint get_depth(const Type type) {