From 5546d314d7830b12ab9c146b4493d3424327a249 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Mon, 2 Feb 2004 17:06:25 +0000 Subject: [PATCH] ported to new type_of prototype --- helm/gTopLevel/oldDisambiguate.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.39.2