max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: handle new let at toPreterm

Browse source
This commit is contained in:
Leonardo de Moura 2020-01-25 18:33:36 -08:00
parent ca690a5571
commit 051fd530e0
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Init/Lean/Elab/Quotation.lean
View file

@ -381,15 +381,16 @@ private unsafe partial def toPreterm : Syntax → TermElabM Expr
e ← toPreterm stx;
pure $ lctx.mkLambda #[mkFVar n] e
| `Lean.Parser.Term.let => do
let ⟨n, val⟩ := show Name × Syntax from match (args.get! 1).getKind with
| `Lean.Parser.Term.letIdDecl => ((args.get! 1).getIdAt 0, (args.get! 1).getArg 4)
| `Lean.Parser.Term.letPatDecl => (((args.get! 1).getArg 0).getIdAt 0, (args.get! 1).getArg 3)
| _ => unreachable!;
let (n, val, body) :=
if (args.get! 1).isIdent then
((args.get! 1).getId, args.get! 5, args.get! 7)
else
((args.get! 1).getIdAt 0, args.get! 4, args.get! 6);
val ← toPreterm val;
lctx ← getLCtx;
let lctx := lctx.mkLetDecl n n exprPlaceholder val;
adaptReader (fun (ctx : Context) => { lctx := lctx, .. ctx }) $ do
e ← toPreterm $ args.get! 3;
e ← toPreterm $ body;
pure $ lctx.mkLambda #[mkFVar n] e
| `Lean.Parser.Term.let_core =>
-- parser! "let_core " >> termParser >> ":=" >> termParser >> "; " >> termParser