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