streams: use Boolean return value for stdio_fseek.

* stream.c (stdio_seek): Handle new-style Boolean return from
stdio_fseek.

* sysif.c (stdio_fseek): Return an int indication that is 1
for success, 0 for failure. There was a mistaken assumption
here that fseeko returns the file offset, and the return value
in the fseek case was mistakenly harmonized, using a wasteful
call to stdio_ftell. The only call to this function relies
only on a Boolean success/fail indication.

* sysif.h (stdio_fseek): Declaration updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 7aae2d5a..53e76afb 100644
--- a/stream.c
+++ b/stream.c
@@ -675,7 +675,7 @@ static val stdio_seek(val stream, val offset, enum strm_whence whence)
     if (offset == zero && whence == strm_cur) {
       return stdio_ftell(h->f);
     } else {
-      if (stdio_fseek(h->f, offset, whence) != negone) {
+      if (stdio_fseek(h->f, offset, whence)) {
         utf8_decoder_init(&h->ud);
         h->unget_c = nil;
         return t;