3 let printfn fmt
= ksprintf print_endline fmt
5 external check_enums
: unit -> (int * int * string) array
= "caml_curl_check_enums"
9 Array.iter
begin fun (last_used
,last
,name
) ->
10 if last_used
+ 1 <> last
then
13 printfn "Need update for %s" name
16 exit
(if !ok then 0 else 1)