diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1997-03-08 22:03:32 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1997-03-08 22:03:32 +0000 |
| commit | faa7f35ec917a4dfb5e14d6a9c3222ec7eb78bea (patch) | |
| tree | 6fc2815ed00587ec37610d3f61a52d7cf57598f0 | |
| parent | 537ecc5749d0b159254b4540aee58f2a11c1c677 (diff) | |
Ctype.make_nongen applique egalement sur le type des expressions
toplevel non generalisable, afin que les niveaux soient corrects lors
des appels de Ctype.moregeneral durant l'affichage du resultat de
l'evaluation.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1346 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -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 *) |