14 lines
333 B
Text
14 lines
333 B
Text
new_frontend
|
|
|
|
syntax [mycheck] "#check" (sepBy term ",") : command
|
|
|
|
open Lean
|
|
|
|
macro_rules [mycheck]
|
|
| `(#check $es*) =>
|
|
let cmds := es.getSepElems.map $ fun e => Syntax.node `Lean.Parser.Command.check #[Syntax.atom {} "#check", e];
|
|
pure $ mkNullNode cmds
|
|
|
|
#check true
|
|
#check true, true
|
|
#check true, 1, 3, fun (x : Nat) => x + 1
|