[Ocaml] erreur de compilation.

let string_find (word : string) (str : string) =
let size_word = string_length word
and size_str = string_length str =
if size_word > size_str then 0 else
let result = ref 1 in
for i = 0 to size_word do
if (get word i) != (get str i) then result := 0
done;
!result;;

Discussions similaires