;;
let index_obj_for_auto status (uri, height, _, _, kind) =
- prerr_endline (string_of_int height);
+ (*prerr_endline (string_of_int height);*)
let mk_item orig_ty spec =
let ty,_,_ = NCicMetaSubst.saturate ~delta:max_int [] [] [] orig_ty 0 in
let keys =
let newstatus = index_eq uri status in
if newstatus == status then status
else
- (prerr_endline ("recording " ^ (NUri.string_of_uri uri));
+ ((*prerr_endline ("recording " ^ (NUri.string_of_uri uri));*)
let dump = record_index_eq uri :: newstatus#dump
in newstatus#set_dump dump)
else
- (prerr_endline "Not a fact";
+ ((*prerr_endline "Not a fact";*)
status)
;;