Fix init-stdio scope issue

db4
Slava Pestov 2008-01-09 01:50:25 -05:00
parent 005319da1a
commit 2180b0f146
3 changed files with 3 additions and 3 deletions

View File

@ -61,7 +61,7 @@ M: object init-io ;
: stdout 12 getenv ;
M: object init-stdio
stdin stdout <duplex-c-stream> stdio set ;
stdin stdout <duplex-c-stream> stdio set-global ;
M: object io-multiplex (sleep) ;

View File

@ -187,4 +187,4 @@ M: unix-io init-io ( -- )
] bind ;
M: unix-io init-stdio ( -- )
0 1 handle>duplex-stream stdio set ;
0 1 handle>duplex-stream stdio set-global ;

View File

@ -42,4 +42,4 @@ M: windows-ce-io init-stdio ( -- )
0 _getstdfilex _fileno
1 _getstdfilex _fileno
] if <win32-duplex-stream>
] with-variable stdio set ;
] with-variable stdio set-global ;