From 9a812cc5c99fe8455383ac48e63cef8291dede86 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 17 Oct 2011 21:15:22 -0700 Subject: [PATCH] io.ports: lift common methods onto buffered-port --- basis/io/ports/ports.factor | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor index 68bc84cbfa..6f1328956f 100644 --- 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 -- )