Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit 45985db2 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

whyml: fix destructive unification

parent f82f1e54
......@@ -67,10 +67,12 @@ let ts_app ts dl =
(* unification *)
let rec unify d1 d2 =
if d1 != d2 then begin
if !d1.uid <> !d2.uid then begin
begin match !d1.node, !d2.node with
| Dvar, _ | _, Dvar ->
| Dvar, _ ->
()
| _, Dvar ->
d2 := !d1
| Duvar s1, Duvar s2 when s1.id = s2.id ->
()
| Dits (its1, dl1), Dits (its2, dl2) when its_equal its1 its2 ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment