Skip to content

Commit

Permalink
generalize: remove incorrect comment
Browse files Browse the repository at this point in the history
Introduced in ocaml#9994
  • Loading branch information
trefis committed Feb 10, 2021
1 parent c1fc8ea commit fc45fc1
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion typing/ctype.ml
Original file line number Diff line number Diff line change
Expand Up @@ -727,7 +727,6 @@ let duplicate_class_type ty =
*)
let rec generalize ty =
let ty = repr ty in
(* generalize the type iff ty.level <= !current_level *)
if (ty.level > !current_level) && (ty.level <> generic_level) then begin
set_level ty generic_level;
(* recur into abbrev for the speed *)
Expand Down

0 comments on commit fc45fc1

Please sign in to comment.