let check_time hour min sec = bool_of_sv (call ~fn:"Date::Calc::check_time" [sv_of_int hour; sv_of_int min; sv_of_int sec])