io.ports: lift common methods onto buffered-port
parent
0c74190a50
commit
9a812cc5c9
|
@ -180,14 +180,10 @@ M: output-port stream-seek
|
||||||
[ stream-flush ]
|
[ stream-flush ]
|
||||||
[ handle>> seek-handle ] tri ;
|
[ handle>> seek-handle ] tri ;
|
||||||
|
|
||||||
M: input-port stream-seekable?
|
M: buffered-port stream-seekable?
|
||||||
handle>> can-seek-handle? ;
|
|
||||||
M: output-port stream-seekable?
|
|
||||||
handle>> can-seek-handle? ;
|
handle>> can-seek-handle? ;
|
||||||
|
|
||||||
M: input-port stream-length
|
M: buffered-port stream-length
|
||||||
handle>> handle-length ;
|
|
||||||
M: output-port stream-length
|
|
||||||
handle>> handle-length ;
|
handle>> handle-length ;
|
||||||
|
|
||||||
GENERIC: shutdown ( handle -- )
|
GENERIC: shutdown ( handle -- )
|
||||||
|
|
Loading…
Reference in New Issue