:bug: fix partial_type error

diff --git a/src/parse/partial.c b/src/parse/partial.c
index 52e34228f38a7e5f7225645ef4d94857e1db304f..158e1f0579107b399b014b7bd2ffe27c19dbdfde 100644 (file)
--- a/src/parse/partial.c
+++ b/src/parse/partial.c
@@ -228,5 +228,5 @@ ANN Type partial_type(const Env env, Exp_Call *const call) {
   exp->exp_type = ae_exp_lambda;
   const m_bool ret = traverse_func_def(env, exp->d.exp_lambda.def);
   nspc_pop_value(env->gwion->mp, env->curr);
-  return ret ? exp->d.exp_lambda.def->base->func->value_ref->type : NULL;
+  return ret > 0 ? exp->d.exp_lambda.def->base->func->value_ref->type : NULL;
 }