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

fix win32 dos prompt io

darcs
erg 2006-10-18 21:17:56 +00:00
parent d5271aa5b8
commit 416edff582
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/io/c-streams.factor
View File

@ -31,9 +31,11 @@ M: c-stream stream-close
>r f <c-stream> <line-reader> f r> <c-stream> <plain-writer> >r f <c-stream> <line-reader> f r> <c-stream> <plain-writer>
<duplex-stream> ; <duplex-stream> ;
: init-io ( -- ) : init-c-io ( -- )
13 getenv 14 getenv <duplex-c-stream> stdio set ; 13 getenv 14 getenv <duplex-c-stream> stdio set ;
: init-io init-c-io ;
: io-multiplex ( ms -- ) drop ; : io-multiplex ( ms -- ) drop ;
IN: io IN: io

3
library/io/windows/io.factor
View File

@ -37,5 +37,6 @@ IN: io-internals
: init-io ( -- ) : init-io ( -- )
win32-init-stdio win32-init-stdio
init-winsock ; init-winsock
init-c-io ;