Correction d'un bug lors de la lecture de l'entrée standard

2022-05-08 18:14:13 +02:00
parent 15afcecabe
commit a5d820319a
1 changed files with 1 additions and 3 deletions
@@ -24,9 +24,7 @@ let readline () = match file with
  | None -> (
        Printf.printf ">>> ";
        flush stdout;
-        let line = ref "" in
-        Scanf.scanf "%s" (fun s -> line := s);
-        !line
+        read_line ()
    )
  | Some f -> input_line f
 in