From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Mon, 2 Feb 2004 17:06:25 +0000 (+0000)
Subject: ported to new type_of prototype
X-Git-Tag: V_0_2_3~103
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=5546d314d7830b12ab9c146b4493d3424327a249;p=helm.git

ported to new type_of prototype
---

diff --git a/helm/gTopLevel/oldDisambiguate.ml b/helm/gTopLevel/oldDisambiguate.ml
index 122409df9..82b918d68 100644
--- 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