| NCicTypeChecker.TypeCheckerFailure s
| NCicEnvironment.ObjectNotFound s
| NCicEnvironment.BadConstraint s
- | NCicEnvironment.BadDependency s as e ->
+ | NCicEnvironment.BadDependency (s,_) as e ->
prerr_endline ("######### " ^ Lazy.force s);
if not ignore_exc then raise e
)
(try
let metasenv, subst, bo, infty =
NCicRefiner.typeof
- ~look_for_coercion:(fun _ _ _ _ _ -> []) [] [] [] bo None
+ ~look_for_coercion:(fun _ _ _ _ _ -> [])
+ NCicUnifHint.empty_db [] [] [] bo None
in
let metasenv, subst =
try
- NCicUnification.unify metasenv subst [] infty ty
+ NCicUnification.unify NCicUnifHint.empty_db metasenv subst [] infty ty
with
| NCicUnification.Uncertain msg
| NCicUnification.UnificationFailure msg