Commit 11022990c2f3d37d62a078f5c3d62e2f26c38948

Baptiste 2024-08-02T19:50:04

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 &&