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 ] [ 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 -- )