core: Bugfix unread_byte.

* mes.c (unread_byte): Return SCM value instead of stray int.
2016-12-20 22:28:29 +01:00 · 2016-12-20 22:28:29 +01:00 · 23754e6f75
parent e97d99c03a
commit 23754e6f75
1 changed files with 2 additions and 1 deletions
--- 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