andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: posix: Prepare for M2-Planet. 

* src/posix.c (access_p): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2019-11-02 18:57:13 +01:00
parent 719c4f2589
commit d23961af1b
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/posix.c
View File

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