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

chore(library/compiler/specialize): remove leftover that is now a noop

Browse source
This commit is contained in:
Leonardo de Moura 2019-04-17 07:14:35 -07:00
parent 8612c1ecae
commit 5e9f2e4e6a
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/library/compiler/specialize.cpp
View file

@ -936,14 +936,6 @@ class specialize_fn {
name n = pre_decl.fst();
expr code = pre_decl.snd();
flet<local_ctx> save_lctx(m_lctx, m_lctx);
buffer<expr> new_fvars;
while (is_lambda(code)) {
expr type = instantiate_rev(binding_domain(code), new_fvars.size(), new_fvars.data());
expr new_fvar = m_lctx.mk_local_decl(ngen(), binding_name(code), type, binding_info(code));
new_fvars.push_back(new_fvar);
code = binding_body(code);
}
code = instantiate_rev(code, new_fvars.size(), new_fvars.data());
/* Add fvars decls */
type_checker tc(m_st, m_lctx);
buffer<expr> new_let_decls;
@ -953,7 +945,6 @@ class specialize_fn {
expr new_fvar = m_lctx.mk_local_decl(fvar_name(fvars[i]), y.append_after(i+1), type, fvar_vals[i]).mk_ref();
new_let_decls.push_back(new_fvar);
}
code = m_lctx.mk_lambda(new_fvars, code);
code = m_lctx.mk_lambda(new_let_decls, code);
// lean_trace(name("compiler", "spec_info"), tout() << "STEP 1 " << n << "\n" << code << "\n";);
code = abstract_spec_ctx(ctx, code);