Update compilation for windows

1 files changed, 2 insertions, 3 deletions

diff --git a/src/screen.ml b/src/screen.ml
index d168865..e11180b 100755
--- a/src/screen.ml
+++ b/src/screen.ml
@@ -173,7 +173,6 @@ let init () = begin
   let init = Curses.keypad window true
   && Curses.noecho ()
   && Curses.start_color ()
-  && Curses.use_default_colors ()
 
   (* Build the color map *)
   && Curses.init_pair 1 Color.white Color.blue  (* Titles *)
@@ -181,10 +180,10 @@ let init () = begin
   && Curses.init_pair 3 Color.black Color.white (* Selected cell *)
   && Curses.init_pair 4 Color.black Color.red   (* referenced cell *)
   && Curses.init_pair 5 Color.black Color.green (* sink cell *)
-  && Curses.curs_set 0 in
+  in
 
   if not init then
-    raise (Failure "Initialisation")
+    raise (Failure "Could not intialize the screen")
   else
     {
       window = window;