12 lines
318 B
Text
12 lines
318 B
Text
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
|