Fix broken unget_char over string input streams.

* stream.c (string_in_unget_char): Store the updated
position into the stream, rather than the original
value, which does nothing.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 45609677..b4d9555e 100644
--- a/stream.c
+++ b/stream.c
@@ -1568,7 +1568,7 @@ static val string_in_unget_char(val stream, val ch)
               lit("unget-char: ~s doesn't match the character that was read"),
               nao);
 
-  set(mkloc(s->pos, stream), plus(pos, one));
+  set(mkloc(s->pos, stream), pos);
   return ch;
 }