error checking
diff --git a/libkc3/env.c b/libkc3/env.c
index 2364634..012e680 100644
--- a/libkc3/env.c
+++ b/libkc3/env.c
@@ -998,7 +998,8 @@ bool env_eval_equal_tag (s_env *env, bool macro, const s_tag *a,
tag_init_copy(dest, b);
else
env_eval_tag(env, b, dest);
- frame_replace(env->frame->next, a->data.ident.sym, dest);
+ if (! frame_replace(env->frame->next, a->data.ident.sym, dest))
+ return false;
return true;
}
if (is_unbound_b) {
@@ -1006,7 +1007,8 @@ bool env_eval_equal_tag (s_env *env, bool macro, const s_tag *a,
tag_init_copy(dest, a);
else
env_eval_tag(env, a, dest);
- frame_replace(env->frame->next, b->data.ident.sym, dest);
+ if (! frame_replace(env->frame->next, b->data.ident.sym, dest))
+ return false;
return true;
}
if (! macro &&