ported to new type_of prototype

diff --git a/helm/gTopLevel/oldDisambiguate.ml b/helm/gTopLevel/oldDisambiguate.ml
index 122409df907941fd9906b6438cec03bc1109c00c..82b918d689e2645a21cdb89e38bc3951061aa56d 100644 (file)
--- a/helm/gTopLevel/oldDisambiguate.ml
+++ b/helm/gTopLevel/oldDisambiguate.ml
@@ -161,7 +161,7 @@ module Make(C:Callbacks) =
         let metasenv',expr = mk_metasenv_and_expr resolve_id' in
 (*CSC: Bug here: we do not try to typecheck also the metasenv' *)
          try
-          let term,_,_,metasenv'' =
+          let term,_,metasenv'' =
            CicRefine.type_of_aux' metasenv' context expr
           in
            Ok (term,metasenv'')
@@ -227,8 +227,8 @@ prerr_endline ("%%% PRUNED!!! " ^ CicPp.ppterm expr) ;
            prerr_endline
             (Printf.sprintf
               "+++++ ASSERTION FAILED: a refine operation should not modify the metasenv. Old metasenv:\n %s\n New metasenv:\n %s\n"
-              (CicMetaSubst.ppmetasenv [] metasenv)
-              (CicMetaSubst.ppmetasenv [] newmetasenv)) ;
+              (CicMetaSubst.ppmetasenv metasenv [])
+              (CicMetaSubst.ppmetasenv newmetasenv [])) ;
            (* an assert would raise an exception that could be caught *)
            exit 1
           end