always flush after a read-line

Ignore-this: d71a03dad3f04242f210df54085125ac

darcs-hash:20110731090906-c41ad-b65b72867335c51c114f2f37756ea569375aedf7

src/uTop_console.ml

@@ -303,9 +303,10 @@ let rec read_input term prompt buffer len =
 
       (* Read interactively user input. *)
       let txt = Lwt_main.run (
-        lwt txt = (new read_line ~term ~prompt:prompt_to_display)#run in
-        lwt () = LTerm.flush term in
-        return txt
+        try_lwt
+          (new read_line ~term ~prompt:prompt_to_display)#run
+        finally
+          LTerm.flush term
       ) in
 
       pending := Some (match !pending with