* stream.c (stdio_seek): After a successful seek, discard the character

that may have been put back with unget_char.

1 files changed, 1 insertions, 0 deletions

diff --git a/stream.c b/stream.c
index f51483a2..64d217a4 100644
--- a/stream.c
+++ b/stream.c
@@ -270,6 +270,7 @@ static val stdio_seek(val stream, cnum offset, enum strm_whence whence)
     } else {
       if (fseek(h->f, offset, whence) == 0) {
         utf8_decoder_init(&h->ud);
+        h->unget_c = nil;
         return t;
       }
     }