fix windows backend

basis/io/backend/unix/unix.factor

@@ -164,7 +164,7 @@ M: stdin refill
         size-read-fd <fd> init-fd <input-port> >>size
         data-read-fd <fd> >>data ;
 
-M: unix (init-stdio) ( -- )
+M: unix (init-stdio)
     <stdin> <input-port>
     1 <fd> <output-port>
     2 <fd> <output-port> ;

basis/io/backend/windows/nt/nt.factor

@@ -120,9 +120,9 @@ M: winnt (wait-to-read) ( port -- )
         tri
     ] with-destructors ;
 
-: console-app? ( -- ? ) GetConsoleWindow ;
+: console-app? ( -- ? ) GetConsoleWindow >boolean ;
 
 M: winnt (init-stdio)
-    console-app? [ f f f f ] [ init-c-stdio t ] if ;
+    console-app? [ init-c-stdio t ] [ f f f f ] if ;
 
 winnt set-io-backend

build-support/factor.sh

@@ -236,7 +236,7 @@ find_word_size() {
 
 set_factor_binary() {
     case $OS in
-        winnt) FACTOR_BINARY=factor.com;;
+        winnt) FACTOR_BINARY=factor-console.exe;;
         *) FACTOR_BINARY=factor;;
     esac
 }