Commit fc1348c52ccd865182b02c9b0a0ee9ea6a270a94
2024-06-25T14:15:40
remove unused function env_module_load_defstruct
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
diff --git a/libc3/env.c b/libc3/env.c
index d6ab103..c14a0b0 100644
--- a/libc3/env.c
+++ b/libc3/env.c
@@ -2172,35 +2172,6 @@ bool env_module_load (s_env *env, const s_sym *module)
return false;
}
-const s_sym * env_module_load_defstruct (s_env *env,
- const s_sym *module)
-{
- s_struct_type *st;
- s_list *st_spec;
- s_tag tag_module_name;
- s_tag tag_st = {0};
- s_tag tag_struct_type;
- if (! env_struct_type_get_spec(env, module, &st_spec))
- return NULL;
- tag_st.type = TAG_STRUCT_TYPE;
- st = &tag_st.data.struct_type;
- if (! struct_type_init(st, module, st_spec)) {
- list_delete_all(st_spec);
- return NULL;
- }
- st->clean = env_struct_type_get_clean(env, module);
- tag_init_sym(&tag_module_name, module);
- tag_init_sym(&tag_struct_type, &g_sym_struct_type);
- if (! facts_replace_tags(&env->facts, &tag_module_name,
- &tag_struct_type, &tag_st)) {
- struct_type_clean(st);
- list_delete_all(st_spec);
- return NULL;
- }
- list_delete_all(st_spec);
- return module;
-}
-
s_tag * env_module_load_time (s_env *env, const s_sym *module,
s_tag *dest)
{
diff --git a/libc3/env.h b/libc3/env.h
index cffa33a..bc76226 100644
--- a/libc3/env.h
+++ b/libc3/env.h
@@ -52,8 +52,6 @@ s_tag * env_defoperator (s_env *env, const s_sym **name,
const s_sym **operator_associativity,
s_tag *dest);
const s_sym * env_defstruct (s_env *env, const s_list *spec);
-const s_sym * env_module_load_defstruct (s_env *env,
- const s_sym *module);
bool env_eval_array (s_env *env, const s_array *array,
s_array *dest);
bool env_eval_array_tag (s_env *env, const s_array *array,