michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(frontends/lean/pp): remove unreachable code: elaborator eliminates typed_expr macros

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-08-28 18:30:33 -07:00
parent be56fcf0bd
commit 2ce92feae1
1 changed files with 8 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/frontends/lean/pp.cpp
View file

@ -379,7 +379,7 @@ auto pretty_fn::pp_macro(expr const & e) -> result {
}
auto pretty_fn::pp_let(expr e) -> result {
buffer<std::tuple<name, optional<expr>, expr>> decls;
buffer<pair<name, expr>> decls;
while (true) {
if (!is_let(e))
break;
@ -392,10 +392,7 @@ auto pretty_fn::pp_let(expr e) -> result {
e = b1;
} else {
n = pick_unused_name(b1, n);
if (is_typed_expr(v))
decls.emplace_back(n, some_expr(get_typed_expr_type(v)), get_typed_expr_expr(v));
else
decls.emplace_back(n, none_expr(), v);
decls.emplace_back(n, v);
e = instantiate(b1, mk_constant(n));
}
}
@ -404,16 +401,12 @@ auto pretty_fn::pp_let(expr e) -> result {
format r = g_let_fmt;
unsigned sz = decls.size();
for (unsigned i = 0; i < sz; i++) {
name n; optional<expr> t; expr v;
std::tie(n, t, v) = decls[i];
format beg = i == 0 ? space() : line();
format sep = i < sz - 1 ? comma() : format();
format entry = format(n);
if (t) {
format t_fmt = pp_child(*t, 0).first;
entry += space() + colon() + nest(n.size() + 1 + 1 + 1, space() + t_fmt);
}
format v_fmt = pp_child(v, 0).first;
name const & n = decls[i].first;
expr const & v = decls[i].second;
format beg = i == 0 ? space() : line();
format sep = i < sz - 1 ? comma() : format();
format entry = format(n);
format v_fmt = pp_child(v, 0).first;
entry += space() + g_assign_fmt + nest(m_indent, line() + v_fmt + sep);
r += nest(3 + 1, beg + group(entry));
}