Type variables mentioned in local functions should not be flexible

(cc #112)
2019-08-30 14:22:31 +02:00
parent f27ba528d8
commit 062309e578
2 changed files with 8 additions and 1 deletions
@@ -1327,7 +1327,7 @@ infer_block(Env, _, [E], BlockType) ->
    [check_expr(Env, E, BlockType)];
 infer_block(Env, Attrs, [Def={letfun, Ann, _, _, _, _}|Rest], BlockType) ->
    {{Name, TypeSig}, LetFun} = infer_letfun(Env, Def),
-    FunT = freshen_type(Ann, typesig_to_fun_t(TypeSig)),
+    FunT = typesig_to_fun_t(TypeSig),
    NewE = bind_var({id, Ann, Name}, FunT, Env),
    [LetFun|infer_block(NewE, Attrs, Rest, BlockType)];
 infer_block(Env, _, [{letval, Attrs, Pattern, Type, E}|Rest], BlockType) ->