max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore(tests/playground/environment_ext): fix

Browse source
This commit is contained in:
Sebastian Ullrich 2019-03-22 17:28:25 +01:00
parent 3d52298c69
commit dc93bc37cc
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/playground/environment_ext.lean
View file

@ -1,4 +1,4 @@
import init.Lean init.Lean.Parser.Syntax
import init.lean init.lean.parser.syntax
namespace Lean
/-- An extension of the State held by an `environment` object. The new State
@ -62,15 +62,15 @@ structure attributeInfo :=
(scopedExt : environmentExt attributeEntry (List attributeEntry))
namespace attributeInfo
def addScopedEntry (attr : attributeInfo) : attributeEntry → environment → environment := attr.scopedExt.addEntry ff
def addScopedEntry (attr : attributeInfo) : attributeEntry → environment → environment := attr.scopedExt.addEntry false
def activateScopedEntries (attr : attributeInfo) (declOpen : Name → Bool) (env : environment) : environment :=
((attr.scopedExt.getState env).filter (λ e : attributeEntry, declOpen e.Decl)).foldr (attr.addActiveEntry tt) env
((attr.scopedExt.getState env).filter (λ e : attributeEntry, declOpen e.Decl)).foldr (attr.addActiveEntry true) env
end attributeInfo
def attributesRef.init : IO (IO.ref (List attributeInfo)) := IO.mkRef []
@[init attributesRef.init] private constant attributesRef : IO.ref (List attributeInfo) := default _
def attributesRef.init : IO (IO.Ref (List attributeInfo)) := IO.mkRef []
@[init attributesRef.init] private constant attributesRef : IO.Ref (List attributeInfo) := default _
/-- The List of all attributes registered by `attributeExt.register`. -/
def attributes : IO (List attributeInfo) := attributesRef.read
def attributes : IO (List attributeInfo) := attributesRef.get
namespace attributeExt
variable {stateTy : Type}