fix windows backend

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
index e25550590f265b58903b4203598cbf6c015b990b..c4883f54ef2727a211fca7775b68f4693d57b9a9 100644 (file)
--- a/basis/io/backend/unix/unix.factor
+++ b/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> ;

diff --git a/basis/io/backend/windows/nt/nt.factor b/basis/io/backend/windows/nt/nt.factor
index b114cefdc0f7e75515e3da12bfb8c9a2912abc1d..c6b24a0a118eed86efe0d29c43ea80c9c61335ab 100755 (executable)
--- a/basis/io/backend/windows/nt/nt.factor
+++ b/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

diff --git a/build-support/factor.sh b/build-support/factor.sh
index 3517d8f4ba41be828a4eacf4a54a906dd723cbd6..44c047155d78a5c5bc9fa4b6714929e1bdf77a7e 100755 (executable)
--- a/build-support/factor.sh
+++ b/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
 }