exception AssertFailure of string;;
exception TypeCheckerFailure of string;;
-let profiler_clean_fill =
- (CicUtil.profile "add_obj.typecheck_obj.clean_and_fill").CicUtil.profile
-
let fdebug = ref 0;;
let debug t context =
let rec debug_aux t i =
uobj,ugraph
;;
-let clean_and_fill u o g =
- (profiler_clean_fill (CicUnivUtils.clean_and_fill u o)) g
-
let typecheck_obj ~logger uri obj =
let ugraph = typecheck_obj0 ~logger uri CicUniv.empty_ugraph obj in
- let ugraph = clean_and_fill uri obj ugraph in
- CicEnvironment.add_type_checked_obj uri (obj,ugraph)
+ let ugraph, univlist = CicUnivUtils.clean_and_fill uri obj ugraph in
+ CicEnvironment.add_type_checked_obj uri (obj,ugraph,univlist)
(** wrappers which instantiate fresh loggers *)