bonjour quand je compile ce code ci-bas, j'obtiens l'erreur "unbound value sdlloader.load_image" venant de la ligne "let mat = Pretreatment.get_matrix (Sdlloader.load_image s)"

let compute_zernike () =
Printf.printf "Computing zernike values…\n";
let zern_mat = Array.make_matrix
(128 * (Array.length font_list) + 1) zernike_order 0. in
let max_vect = Array.make zernike_order 0. in
for f = 0 to (Array.length font_list) - 1 do
let s = "fonts/" ^ (font_list.(f)) in
if Sys.file_exists s then
begin
Printf.printf "\nGenerating %s" s;
let mat = Pretreatment.get_matrix (…)