d775dc6195
Fixes issue reported at https://leanprover.zulipchat.com/#narrow/stream/270676-lean4/topic/Environment.20extensions.20in.20importModules
30 lines
775 B
Text
30 lines
775 B
Text
import UserAttr.Tst
|
|
|
|
open Lean
|
|
|
|
def tst : MetaM Unit := do
|
|
let env ← getEnv
|
|
assert! (blaAttr.hasTag env `f)
|
|
assert! (blaAttr.hasTag env `g)
|
|
assert! !(blaAttr.hasTag env `id)
|
|
pure ()
|
|
|
|
#eval tst
|
|
|
|
def declareLeanPath : MetaM Unit := do
|
|
addAndCompile <| Declaration.defnDecl {
|
|
name := `leanPath
|
|
type := mkConst ``String
|
|
value := toExpr <| System.SearchPath.separator.toString.intercalate ((← Lean.getBuiltinSearchPath).map toString)
|
|
levelParams := []
|
|
hints := ReducibilityHints.abbrev
|
|
safety := DefinitionSafety.safe
|
|
}
|
|
|
|
#eval declareLeanPath
|
|
|
|
#eval leanPath
|
|
|
|
unsafe def main : IO Unit := do
|
|
initSearchPath s!"{leanPath}{System.SearchPath.separator}build"
|
|
withImportModules [{ module := `UserAttr.Tst : Import }] {} 0 fun env => ()
|