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

that may have been put back with unget_char.

2 files changed, 6 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 46ff1909..ecdf8971 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-01-14  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (stdio_seek): After a successful seek, discard the character
+	that may have been put back with unget_char.
+
+2014-01-14  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (bind_args): Implemented default values for optional
 	arguments.
 	(op_defun): Permit the syntax.
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;
       }
     }