From d23961af1b1cfa38b492e8a73949edfaa8cb2692 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) 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 40bf0eed..0784d4bd 100644
--- a/src/posix.c
+++ b/src/posix.c
@@ -193,7 +193,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;
 }