core: Bugfix unread_byte.

* mes.c (unread_byte): Return SCM value instead of stray int.

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