diff --git a/core/io/streams/c/c-tests.factor b/core/io/streams/c/c-tests.factor index 038f44d99d..ab7840c387 100644 --- a/core/io/streams/c/c-tests.factor +++ b/core/io/streams/c/c-tests.factor @@ -11,15 +11,6 @@ IN: io.streams.c.tests >string ] unit-test -[ 0 ] -[ "test.txt" temp-file "rb" fopen [ stream-tell ] [ dispose ] bi ] unit-test - -[ 3 ] [ - "test.txt" temp-file "rb" fopen - 3 over stream-read drop - [ stream-tell ] [ dispose ] bi -] unit-test - ! Writing specialized arrays to binary streams [ ] [ "test.txt" temp-file "wb" fopen [ diff --git a/core/io/streams/c/c.factor b/core/io/streams/c/c.factor index a78e21d2d9..ea5443a58a 100644 --- a/core/io/streams/c/c.factor +++ b/core/io/streams/c/c.factor @@ -13,18 +13,6 @@ TUPLE: c-stream < disposable handle ; M: c-stream dispose* handle>> fclose ; -M: c-stream stream-tell handle>> ftell ; - -M: c-stream stream-seek - [ - { - { seek-absolute [ 0 ] } - { seek-relative [ 1 ] } - { seek-end [ 2 ] } - [ bad-seek-type ] - } case - ] [ handle>> ] bi* fseek ; - TUPLE: c-writer < c-stream ; : ( handle -- stream ) c-writer new-c-stream ;