From: Jérémie Astor <fennecdjay@gmail.com>
Date: Sat, 19 Jun 2021 19:24:43 +0000 (+0200)
Subject: :bug: Fix check_exp
X-Git-Tag: nightly~581
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=ac484bc2045c8925d0136b6a1681240cd94ed30f;p=gwion.git

:bug: Fix check_exp
---

diff --git a/src/parse/check.c b/src/parse/check.c
index 1a20886b..1337c325 100644
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -1071,7 +1071,7 @@ ANN Type check_exp(const Env env, const Exp exp) {
       CHECK_OO((curr->type = check_exp_func[curr->exp_type](env, &curr->d)));
       if (env->func && isa(curr->type, env->gwion->type[et_lambda]) < 0 &&
           isa(curr->type, env->gwion->type[et_function]) > 0 &&
-          !fflag(curr->type->info->func, fflag_pure))
+          !safe_fflag(curr->type->info->func, fflag_pure))
         unset_fflag(env->func, fflag_pure);
     } while ((curr = curr->next));
   }