windows interface.

console/LGPL/pl-ntcon.c

@@ -76,13 +76,13 @@ main(int argc, char **argv)
   SetConsoleCtrlHandler((PHANDLER_ROUTINE)consoleHandlerRoutine, TRUE);
 #endif
 
+  if ( !PL_initialise(argc, argv) )
+    PL_halt(1);
+
 #if O_ANSI_COLORS
   PL_w32_wrap_ansi_console();		/* decode ANSI color sequences (ESC[...m) */
 #endif
 
-  if ( !PL_initialise(argc, argv) )
-    PL_halt(1);
-
   PL_halt(PL_toplevel() ? 0 : 1);
 
   return 0;

console/LGPL/pl-ntconsole.c

@@ -1,4 +1,4 @@
-/*  $Id$
+ /*  $Id$
 
     Part of SWI-Prolog
 
@@ -433,6 +433,8 @@ PL_w32_wrap_ansi_console(void)
   HANDLE hError = GetStdHandle(STD_ERROR_HANDLE);
   CONSOLE_SCREEN_BUFFER_INFO info;
 
+  fprintf(stderr,"main=%p %p\n",Sinput, Sinput->functions);
+
   if ( hIn    == INVALID_HANDLE_VALUE ||
        hOut   == INVALID_HANDLE_VALUE ||
        hError == INVALID_HANDLE_VALUE ||