io.ports: lift common methods onto buffered-port

db4
Joe Groff 2011-10-17 21:15:22 -07:00
parent 0c74190a50
commit 9a812cc5c9
1 changed files with 2 additions and 6 deletions

View File

@ -180,14 +180,10 @@ M: output-port stream-seek
[ stream-flush ]
[ handle>> seek-handle ] tri ;
M: input-port stream-seekable?
handle>> can-seek-handle? ;
M: output-port stream-seekable?
M: buffered-port stream-seekable?
handle>> can-seek-handle? ;
M: input-port stream-length
handle>> handle-length ;
M: output-port stream-length
M: buffered-port stream-length
handle>> handle-length ;
GENERIC: shutdown ( handle -- )