artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: posix: Prepare for M2-Planet.

Browse source 
* src/posix.c (access_p): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-22 19:57:13 +02:00
parent c58049d48d
commit a7273407ea
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 SCM
access_p (SCM file_name, SCM mode) 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_t;
return cell_f; return cell_f;
} }