diff options
| author | Pierre-Marie Pédrot | 2017-08-27 17:07:15 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-27 17:15:55 +0200 |
| commit | c6d28beca01809dbd06b3b36ea53bd4a94824083 (patch) | |
| tree | d9cd7edcf1299cfd222550b2a018a7b6763c1f66 /src | |
| parent | 9bbdee3c09c92654bb8937b9939a9b9c69c23d1d (diff) | |
Proper handling of rigid variables in subtyping.
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2intern.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/tac2intern.ml b/src/tac2intern.ml index ef0763ff8e..40e0ffb34e 100644 --- a/src/tac2intern.ml +++ b/src/tac2intern.ml @@ -1167,12 +1167,8 @@ let intern_open_type t = let check_subtype t1 t2 = let env = empty_env () in let t1 = fresh_type_scheme env t1 in - (** We build a substitution mimicking rigid variable by using dummy refs *) - let mb = MBId.make DirPath.empty (Id.of_string "_t") in - let rigid i = - let kn = KerName.make (MPbound mb) DirPath.empty (Label.make "_t") in - GTypRef (Other kn, []) - in + (** We build a substitution mimicking rigid variable by using dummy tuples *) + let rigid i = GTypRef (Tuple i, []) in let (n, t2) = t2 in let subst = Array.init n rigid in let substf i = subst.(i) in |