Bonjour,

voila j'ai une erreur de syntaxe que je n'arrive pas a réssoudre .
J'ai ce code la :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
type personne =
{
 id     :int    ;
 prenom :string ;
 nom    :string ;
 age    :int
}
;;
 
while true do
  print_string "-------------------";
  print_newline();
  print_string "-Programme de test-";
  print_newline();
  print_string "-------------------";
  print_newline();
  print_newline();
  print_string "1 - Ajouter une personne";
  print_newline();
 
  print_string "Choix : ";
  let rec choix = 
    read_int();
    if choix != 1 then choix (* /!\ Ligne 30 /!\ *)
  ;
done
;;
Ocaml me renvois :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
File "test.ml", line 30, characters 4-6:
Syntax error
Quelqu'un aurait une solution ?
Merci .