9 lines
241 B
Text
9 lines
241 B
Text
import Init.Lean.Parser
|
|
|
|
def main : List String → IO Unit
|
|
| [fname, n] => do
|
|
env ← Lean.mkEmptyEnvironment;
|
|
n.toNat!.forM $ fun _ =>
|
|
discard $ Lean.Parser.parseFile env fname;
|
|
pure ()
|
|
| _ => throw $ IO.userError "give file"
|