:fire: Remove find_typeof

diff --git a/src/oo/env_utils.c b/src/oo/env_utils.c
index d41ba904506843ce487d5419de1b81867c9f3888..df445cfd890ec4db4d1599f805a34bdbf4de8ac4 100644 (file)
--- a/src/oo/env_utils.c
+++ b/src/oo/env_utils.c
@@ -38,21 +38,7 @@ 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 static Type find_typeof(const Env env, ID_List path) {
-  Value v = nspc_lookup_value1(env->curr, path->xid); // was lookup2
-  Type t = actual_type(v->type);
-  path = path->next;
-  while(path) {
-    CHECK_OO((v = find_value(t, path->xid)))
-    t = v->type;
-    path = path->next;
-  }
-  return v->type;
-}
-
 ANN Type find_type(const Env env, ID_List path) {
-  if(path->ref)
-    return find_typeof(env, path);
   Type type = nspc_lookup_type1(env->curr, path->xid);
   CHECK_OO(type)
   Nspc nspc = type->nspc;