io.streams.c: remove -seek and -tell methods

M: c-stream stream-seek was broken and bootstrap doesn't need it so save some code.
db4
Joe Groff 2011-10-14 21:36:25 -07:00
parent e426512534
commit 0353179a92
2 changed files with 0 additions and 21 deletions

View File

@ -11,15 +11,6 @@ IN: io.streams.c.tests
>string
] unit-test
[ 0 ]
[ "test.txt" temp-file "rb" fopen <c-reader> [ stream-tell ] [ dispose ] bi ] unit-test
[ 3 ] [
"test.txt" temp-file "rb" fopen <c-reader>
3 over stream-read drop
[ stream-tell ] [ dispose ] bi
] unit-test
! Writing specialized arrays to binary streams
[ ] [
"test.txt" temp-file "wb" fopen <c-writer> [

View File

@ -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 ;
: <c-writer> ( handle -- stream ) c-writer new-c-stream ;