Fix type checker for let expressions

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-08-31 14:19:24 -07:00
parent 793468072b
commit 4a28a64685

View file

@ -135,7 +135,7 @@ public:
expr lt = infer_type(let_value(e), ctx); expr lt = infer_type(let_value(e), ctx);
{ {
cache::mk_scope sc(m_cache); cache::mk_scope sc(m_cache);
r = infer_type(let_body(e), extend(ctx, let_name(e), lt, let_value(e))); r = lower_free_vars(infer_type(let_body(e), extend(ctx, let_name(e), lt, let_value(e))), 1);
} }
break; break;
} }