From d31d7cad5730113cb542da0ea6bd9dbfe483de78 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Thu, 24 Oct 2019 21:26:24 +0200
Subject: [PATCH] core: read_char: Prepare for M2-Planet.

* src/posix.c (read_char): Prepare for M2-Planet.
---
 src/posix.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/posix.c b/src/posix.c
index f91416e5..db537f59 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -116,8 +116,9 @@ SCM
 read_char (SCM port)            /*:((arity . n)) */
 {
   int fd = __stdin;
-  if (TYPE (port) == TPAIR && TYPE (car (port)) == TNUMBER)
-    __stdin = VALUE (CAR (port));
+  if (TYPE (port) == TPAIR)
+    if (TYPE (CAR (port)) == TNUMBER)
+      __stdin = VALUE (CAR (port));
   SCM c = make_char (readchar ());
   __stdin = fd;
   return c;