2005-12-16 21:15:43 -05:00
|
|
|
IN: io
|
|
|
|
USING: kernel ;
|
|
|
|
|
|
|
|
! Think '/dev/null'.
|
|
|
|
M: f stream-close drop ;
|
2006-04-03 01:33:52 -04:00
|
|
|
M: f set-timeout 2drop ;
|
2005-12-16 21:15:43 -05:00
|
|
|
|
|
|
|
M: f stream-readln drop f ;
|
|
|
|
M: f stream-read1 drop f ;
|
|
|
|
M: f stream-read 2drop f ;
|
|
|
|
|
|
|
|
M: f stream-write1 2drop ;
|
|
|
|
M: f stream-write 2drop ;
|
|
|
|
M: f stream-terpri drop ;
|
|
|
|
M: f stream-flush drop ;
|
|
|
|
|
|
|
|
M: f stream-format 3drop ;
|
|
|
|
M: f with-nested-stream rot drop with-stream* ;
|