diff --git a/slige/compiler/check/checker.ts b/slige/compiler/check/checker.ts index eb67b33..3aaf75b 100644 --- a/slige/compiler/check/checker.ts +++ b/slige/compiler/check/checker.ts @@ -225,8 +225,16 @@ export class Checker { switch (k.tag) { case "error": return todo(); - case "bind": + case "bind": { + switch (patRes.kind.tag) { + case "fn_param": + return todo(); + case "let": + return todo(); + } + exhausted(patRes.kind); return todo(); + } case "path": return todo(); }