feat(library/init/lean/elaborator): add skeletons
This commit is contained in:
parent
e0a781063a
commit
46a2e6f311
2 changed files with 10 additions and 0 deletions
|
|
@ -188,6 +188,11 @@ fun _ => do
|
|||
| Except.ok env => setEnv env
|
||||
| Except.error ex => logElabException (ElabException.kernel ex)
|
||||
|
||||
@[builtinCommandElab «variable»] def elabVariable : CommandElab :=
|
||||
fun n => do
|
||||
runIO (IO.println n.val);
|
||||
pure ()
|
||||
|
||||
@[builtinCommandElab «resolve_name»] def elabResolveName : CommandElab :=
|
||||
fun n => do
|
||||
let id := n.getIdAt 1;
|
||||
|
|
|
|||
|
|
@ -38,5 +38,10 @@ partial def elabTermAux : Syntax Expr → Option Expr → Bool → Elab (Syntax
|
|||
def elabTerm (stx : Syntax Expr) (expectedType : Option Expr := none) : Elab (Syntax Expr) :=
|
||||
elabTermAux stx expectedType false
|
||||
|
||||
@[builtinTermElab «list»] def elabList : TermElab :=
|
||||
fun stx _ => do
|
||||
runIO (IO.println stx.val);
|
||||
pure stx.val
|
||||
|
||||
end Elab
|
||||
end Lean
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue