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 ; : stdout 12 getenv ;
M: object init-stdio M: object init-stdio
stdin stdout <duplex-c-stream> stdio set ; stdin stdout <duplex-c-stream> stdio set-global ;
M: object io-multiplex (sleep) ; M: object io-multiplex (sleep) ;

View File

@ -187,4 +187,4 @@ M: unix-io init-io ( -- )
] bind ; ] bind ;
M: unix-io init-stdio ( -- ) 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 0 _getstdfilex _fileno
1 _getstdfilex _fileno 1 _getstdfilex _fileno
] if <win32-duplex-stream> ] if <win32-duplex-stream>
] with-variable stdio set ; ] with-variable stdio set-global ;