fix: bug at TerminalCases
`Context.jp?` is not a continuation for the local lambda.
This commit is contained in:
parent
d439160f31
commit
212456720c
1 changed files with 1 additions and 1 deletions
|
|
@ -55,7 +55,7 @@ partial def visitLet (e : Expr) (fvars : Array Expr) : M Expr := do
|
|||
visitCases casesInfo value
|
||||
else
|
||||
if value.isLambda then
|
||||
value ← visitLambda value
|
||||
value ← withReader (fun _ => {}) <| visitLambda value
|
||||
let fvar ← mkLetDecl binderName type value nonDep
|
||||
visitLet body (fvars.push fvar)
|
||||
| e =>
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue