io.ports: lift common methods onto buffered-port

diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 68bc84cbfa59fee99cf5425f42634b232c98b870..6f1328956f5c4c7b57b6e100c3ac38854d9bcc1d 100644 (file)
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -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 -- )