core: posix: Prepare for M2-Planet.

* src/posix.c (access_p): Prepare for M2-Planet.
This commit is contained in:
Jan Nieuwenhuizen 2019-11-02 18:57:13 +01:00
parent ed9da00343
commit 74f95a3b67
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 1 deletions

View File

@ -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;
}