32fb1ccf1c
This PR moves the IR elim_dead_vars pass to LCNF. It cannot delete the pass yet as it is still used in later IR passes.
18 lines
460 B
Text
18 lines
460 B
Text
import Lean
|
|
|
|
open Lean
|
|
|
|
unsafe def tst1 : MetaM Unit := do
|
|
let e := mkApp (mkSort levelZero) (mkSort levelZero)
|
|
let e' := e.updateApp! (mkSort levelZero) (mkSort levelZero)
|
|
assert! ptrAddrUnsafe e == ptrAddrUnsafe e'
|
|
let e' := e.replace fun _ => none
|
|
assert! ptrAddrUnsafe e == ptrAddrUnsafe e'
|
|
|
|
#eval tst1
|
|
|
|
set_option trace.Compiler.saveMono true
|
|
def sefFn (e : Expr) (f : Expr) : Expr :=
|
|
match e with
|
|
| .app _ a => e.updateApp! f a
|
|
| _ => e
|