From ac484bc2045c8925d0136b6a1681240cd94ed30f Mon Sep 17 00:00:00 2001 From: =?utf8?q?J=C3=A9r=C3=A9mie=20Astor?= Date: Sat, 19 Jun 2021 21:24:43 +0200 Subject: [PATCH] :bug: Fix check_exp --- src/parse/check.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); } -- 2.43.0