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

chore(library/init/lean/compiler/ir): minor

Browse source
This commit is contained in:
Leonardo de Moura 2019-03-08 07:25:16 -08:00
parent 6a96d94259
commit baec9a1b78
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
library/init/lean/compiler/ir.lean
View file

@ -304,8 +304,11 @@ abbreviation collector := name_set → name_set → name_set
@[inline] private def with_bv (x : varid) : collector → collector :=
λ k bv fv, k (bv.insert x) fv
def insert_params (s : var_set) (ys : list param) : var_set :=
ys.foldl (λ s p, s.insert p.x) s
@[inline] private def with_params (ys : list param) : collector → collector :=
λ k bv fv, k (ys.foldl (λ bv ⟨x, _, _⟩, bv.insert x) bv) fv
λ k bv fv, k (insert_params bv ys) fv
@[inline] private def seq : collector → collector → collector :=
λ k₁ k₂ bv fv, k₂ bv (k₁ bv fv)