core: Bugfix unread_byte.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 21:28:29 +0000 (22:28 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 21:28:29 +0000 (22:28 +0100)
* mes.c (unread_byte): Return SCM value instead of stray int.

mes.c

diff --git a/mes.c b/mes.c
index 4226eb983457f0c7777eaaba734c726cb8978614..f4912bab9bc89003bc946d869f43402d904f37eb 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -854,7 +854,8 @@ read_byte ()
 SCM
 unread_byte (SCM i)
 {
-  return ungetchar (VALUE (i));
+  ungetchar (VALUE (i));
+  return i;
 }
 
 SCM