20 lines
474 B
Text
20 lines
474 B
Text
import Lean
|
|
open Lean
|
|
|
|
def c1 : Bool := true
|
|
|
|
unsafe def tst1 : MetaIO Unit := do
|
|
env ← MetaIO.getEnv;
|
|
let v := env.evalConst Bool `c1;
|
|
IO.println v
|
|
|
|
#eval tst1 -- outputs incorrect value (ok false). Reason: the unboxed value `true` is `1`, but the boxed `false` value is also `1`.
|
|
|
|
def c2 : Bool := false
|
|
|
|
unsafe def tst2 : MetaIO Unit := do
|
|
env ← MetaIO.getEnv;
|
|
let v := env.evalConst Bool `c2;
|
|
IO.println v
|
|
|
|
#eval tst2 -- crashes since `0` is not a valid boxed value
|