Bug fixed: restrict used to take the list of positions to be restricted, but

[helm.git] / helm / software / components / ng_refiner / nCicUnification.ml

diff --git a/helm/software/components/ng_refiner/nCicUnification.ml b/helm/software/components/ng_refiner/nCicUnification.ml
index 1a667770b4ec47b762c8c3d27e090310d2f16f4b..0f73dbc5c9e5f0fd268010092448dbce9c5b9e48 100644 (file)
--- a/helm/software/components/ng_refiner/nCicUnification.ml
+++ b/helm/software/components/ng_refiner/nCicUnification.ml
@@ -453,7 +453,7 @@ and unify rdb test_eq_only metasenv subst context t1 t2 =
              l1 l2 (metasenv, subst, [], List.length l1)
            in
            if to_restrict <> [] then
-             let metasenv, subst, _ = 
+             let metasenv, subst, _, _ = 
                NCicMetaSubst.restrict metasenv subst n1 to_restrict
              in
                metasenv, subst