From dd15f9af726b56462fcf243f72bf4a44a10e6762 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 19 Apr 2016 06:32:17 -0700 Subject: 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. --- stream.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stream.c') 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; } -- cgit v1.2.3