[m-dev.] diff: tvar renaming bug fix

Simon Taylor stayl at cs.mu.OZ.AU
Fri Sep 18 12:13:13 AEST 1998


  
> @@ -2109,35 +1998,43 @@
>  
>          poly_info_get_proofs(Info0, Proofs),
>  
> -        poly_info_get_varset(Info0, VarSet0),
> -        ClassDefn = hlds_class_defn(SuperClasses, ClassVars, _, ClassVarSet, _),
> -        map__from_corresponding_lists(ClassVars, InstanceTypes, TypeSubst),
> +        poly_info_get_typevarset(Info0, VarSet0),
> +        ClassDefn = hlds_class_defn(SuperClasses0, ClassVars0, 
> +                _, ClassVarSet, _),
>          varset__merge_subst(VarSet0, ClassVarSet, VarSet1, Subst),
> -        poly_info_set_varset(VarSet1, Info0, Info1),
> +        poly_info_set_typevarset(VarSet1, Info0, Info1),
> +

s/VarSet/TVarSet/

Otherwise that looks good, commit it.

Simon.



More information about the developers mailing list