From d5a9f1541a9e47fe30fd9502e697e560a9e824a1 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 11 Mar 2018 11:00:35 +0100
Subject: [PATCH] lchar() needs to return the character written. (This happens
 by magic on 386, but no on PPC.) See #72.

---
 lang/b/lib/main.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lang/b/lib/main.c b/lang/b/lib/main.c
index b583a4309..44ea76c9b 100644
--- a/lang/b/lib/main.c
+++ b/lang/b/lib/main.c
@@ -14,10 +14,11 @@ static intptr_t i_char(intptr_t s, intptr_t n)
     return p[n];
 }
 
-static void i_lchar(intptr_t s, intptr_t n, intptr_t c)
+static intptr_t i_lchar(intptr_t s, intptr_t n, intptr_t c)
 {
     char* p = (char*)(s<<SHIFT);
     p[n] = c;
+	return c;
 }
 
 static intptr_t i_getchar(void)
-- 
2.34.1