21 lines
340 B
Text
21 lines
340 B
Text
import Init.Lean
|
|
open Lean
|
|
|
|
def x := 10
|
|
|
|
unsafe def tst : MetaIO Unit := do
|
|
env ← MetaIO.getEnv;
|
|
IO.println $ env.evalConst Nat `x;
|
|
pure ()
|
|
|
|
#eval tst
|
|
|
|
def f (x : Nat) := x + 1
|
|
|
|
unsafe def tst2 : MetaIO Unit := do
|
|
env ← MetaIO.getEnv;
|
|
f ← liftM $ IO.ofExcept $ env.evalConst (Nat → Nat) `f;
|
|
IO.println $ (f 10);
|
|
pure ()
|
|
|
|
#eval tst2
|