From 23754e6f7583310a947df3e2da43cb72148eafc8 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 20 Dec 2016 22:28:29 +0100
Subject: [PATCH] core: Bugfix unread_byte.

* mes.c (unread_byte): Return SCM value instead of stray int.
---
 mes.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mes.c b/mes.c
index 4226eb98..f4912bab 100644
--- 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