:art: Clean env_utils

diff --git a/src/oo/env_utils.c b/src/oo/env_utils.c
index caa3a4d2dd2a1798a3876bda12343f1d189e5981..7bec6eb5dbae0c09307a39749c379cb0ef7d0673 100644 (file)
--- a/src/oo/env_utils.c
+++ b/src/oo/env_utils.c
@@ -34,16 +34,20 @@ ANN m_bool env_storage(const Env env, ae_flag flag, const loc_t pos) {
   return !(env->class_def && GET(flag, ae_flag_global)) ? GW_OK :GW_ERROR;
 }
 
-ANN Type find_type(const Env env, ID_List path) {
-  Type type = nspc_lookup_type1(env->curr, path->xid);
-if(!type && env->class_def) {
-  Type base = env->class_def->e->parent;
-  while(base && base->nspc) {
-    if((type = nspc_lookup_type1(base->nspc, path->xid)))
-     break;
+ANN Type _find_type(const Env env, const Symbol xid) {
+  Type type = nspc_lookup_type1(env->curr, xid);
+  if(!type && env->class_def) {
+    Type base = env->class_def->e->parent;
+    while(base && base->nspc) {
+      if((type = nspc_lookup_type1(base->nspc, xid)))
+       break;
+    }
   }
+  return type;
 }
 
+ANN Type find_type(const Env env, ID_List path) {
+  Type type = _find_type(env, path->xid);
   CHECK_OO(type)
   Nspc nspc = type->nspc;
   path = path->next;