:bug: check traverse_exp in sift ops

diff --git a/src/lib/sift.c b/src/lib/sift.c
index 8f16c61e2c2af55de8b3f48c5d9f61aa291086a6..c8d266f64e68c812b204cea0f570a8d3b8ef467d 100644 (file)
--- a/src/lib/sift.c
+++ b/src/lib/sift.c
@@ -41,13 +41,13 @@ static OP_CHECK(opck_ctrl) {
   const Exp call = new_exp_call(mp, dot, NULL, func->pos);
   func->d.exp_binary.lhs = call;
   func->d.exp_binary.op = chuck;
-  traverse_exp(env, func);
+  CHECK_BN(traverse_exp(env, func));
   struct Stmt_ one = { .d = { .stmt_exp = { .val = func }}, .stmt_type = ae_stmt_exp, .pos = func->pos };
 
   Exp samp = new_prim_id(mp, insert_symbol(env->gwion->st, "samp"), func->pos);
   Exp _now = new_prim_id(mp, insert_symbol(env->gwion->st, "now"), func->pos);
   Exp time = new_exp_binary(mp, samp, chuck, _now, func->pos);
-  traverse_exp(env, time);
+  CHECK_BN(traverse_exp(env, time));
   struct Stmt_ two = { .d = { .stmt_exp = { .val = time }}, .stmt_type = ae_stmt_exp, .pos = func->pos };
 
   free_exp(mp, bin->lhs);