From 8d566add85c7196ec4905e2074a937bb53efa054 Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=A9mie=20Astor?= <astor.jeremie@wanadoo.fr>
Date: Wed, 16 Sep 2020 00:05:32 +0200
Subject: [PATCH] :art: Finish the job

---
 src/env/env.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/env/env.c b/src/env/env.c
index c232a6b7..e5360419 100644
--- a/src/env/env.c
+++ b/src/env/env.c
@@ -100,8 +100,8 @@ ANN m_bool type_engine_check_prog(const Env env, const Ast ast) {
   return traverse_ast(env, ast);
 }
 
-ANN m_bool type_engine_clean_prog(const Env env, const m_bool *r) {
-  const m_bool ret = (m_bool)r;
+ANN m_bool type_engine_clean_prog(const Env env, m_bool *r) {
+  const m_bool ret = (m_bool)*r;
   const Context ctx = env->context;
   if(ret > 0) //{
     nspc_commit(env->curr);
-- 
2.43.0