From 74f95a3b67b2a122b18c0b580e5641d8432da400 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 2 Nov 2019 18:57:13 +0100
Subject: [PATCH] core: posix: Prepare for M2-Planet.

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

diff --git a/src/posix.c b/src/posix.c
index 7610a164..44c3a753 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -189,7 +189,8 @@ setenv_ (SCM s, SCM v)          /*:((name . "setenv")) */
 SCM
 access_p (SCM file_name, SCM mode)
 {
-  if (access (cell_bytes (STRING (file_name)), VALUE (mode)) == 0)
+  int result = access (cell_bytes (STRING (file_name)), VALUE (mode));
+  if (result == 0)
     return cell_t;
   return cell_f;
 }