Fix init-stdio scope issue
parent
005319da1a
commit
2180b0f146
|
@ -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) ;
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue