steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix windows backend

db4
Doug Coleman 2009-01-29 21:03:16 -06:00
parent ea153f153a
commit b21e40fe95
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/backend/unix/unix.factor
View File

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

4
basis/io/backend/windows/nt/nt.factor
View File

@ -120,9 +120,9 @@ M: winnt (wait-to-read) ( port -- )
tri tri
] with-destructors ; ] with-destructors ;
: console-app? ( -- ? ) GetConsoleWindow ; : console-app? ( -- ? ) GetConsoleWindow >boolean ;
M: winnt (init-stdio) 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 winnt set-io-backend

2
build-support/factor.sh
View File

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