From cb35345d857b0774b9624a06a824fc2e989aeb63 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 26 Oct 2019 09:09:49 +0200
Subject: [PATCH] posix = 0

---
 src/posix.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/posix.c b/src/posix.c
index adbdda42..5d504fce 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -193,7 +193,7 @@ current_input_port ()
   if (__stdin >= 0)
     return make_number (__stdin);
   SCM x = g_ports;
-  while (x)
+  while (x != 0)
     {
       if (PORT (CAR (x)) == __stdin)
         return CAR (x);