:art: Improve partial non used checking

diff --git a/src/parse/check.c b/src/parse/check.c
index 827fb6ca6e6c9ffd8c232fd0aebfd02765246a70..6f0914260ac7d824f3b77a476e2292066b5bac10 100644 (file)
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -1318,7 +1318,7 @@ ANN m_bool check_union_def(const Env env NUSED, const Union_Def udef) {
 ANN static m_bool check_stmt_exp(const Env env, const Stmt_Exp stmt) {
   if(stmt->val) {
     CHECK_OB(check_exp(env, stmt->val));
-    if(!strncmp(stmt->val->type->name, "partial:", 8)) {
+    if(stmt->val->exp_type == ae_exp_lambda) {
      const loc_t loc = stmt->val->d.exp_lambda.def->base->pos;
      env_warn(env, loc, "Partial application not used");
     }