From: Jérémie Astor <fennecdjay@gmail.com>
Date: Wed, 27 Apr 2022 10:09:37 +0000 (+0200)
Subject: :art: Clean (remove commented fork_exp)
X-Git-Tag: nightly~275^2~30
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=227ca63946fc230db1fd681c107182fc0522674e;p=gwion.git

:art: Clean (remove commented fork_exp)
---

diff --git a/src/lib/lib_func.c b/src/lib/lib_func.c
index 2ee19198..26e6c116 100644
--- a/src/lib/lib_func.c
+++ b/src/lib/lib_func.c
@@ -614,23 +614,9 @@ static OP_EMIT(opem_op_impl) {
   instr->m_val2          = -SZ_INT;
   return ret;
 }
-/*
-ANN static void fork_exp(const Env env, const Exp_Unary *unary) {
-  Stmt_List slist = new_mp_vector(env->gwion->mp, sizeof(struct Stmt_), 1);
-  mp_vector_set(slist, struct Stmt_, 0,
-    ((struct Stmt_) {
-      .stmt_type = ae_stmt_exp, .d = { .stmt_exp = { .val = unary->exp, } },
-      .pos = unary->exp->pos
-  }));
-  const Stmt      code = new_stmt_code(env->gwion->mp, slist, unary->exp->pos);
-  ((Exp_Unary *)unary)->exp        = NULL;
-  ((Exp_Unary *)unary)->code       = code;
-  ((Exp_Unary *)unary)->unary_type = unary_code;
-}
-*/
+
 ANN static Type fork_type(const Env env, const Exp_Unary *unary) {
   const Type t = unary->exp->type;
-//  fork_exp(env, unary);
   if (t == env->gwion->type[et_void]) return env->gwion->type[et_fork];
   char c[21 + strlen(t->name)];
   sprintf(c, "TypedFork:[%s]", t->name);