diff options
| -rw-r--r-- | typing/typecore.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/typing/typecore.ml b/typing/typecore.ml index 416642b49..16695f1d0 100644 --- a/typing/typecore.ml +++ b/typing/typecore.ml @@ -744,7 +744,8 @@ let type_expression env sexp = begin_def(); let exp = type_exp env sexp in end_def(); - if is_nonexpansive exp then generalize exp.exp_type; + if is_nonexpansive exp then generalize exp.exp_type + else make_nongen exp.exp_type; exp (* Typing of methods *) |