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

core: Add chmod.

Browse source 
* src/posix.c (chmod_): New function.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-27 23:31:45 +02:00
parent e3b929aa87
commit 2cc6f166db
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/posix.c
View file

@ -200,6 +200,13 @@ force_output (SCM p) ///((arity . n))
return cell_unspecified; return cell_unspecified;
} }
SCM
chmod_ (SCM file_name, SCM mode) ///((name . "chmod"))
{
return chmod (string_to_cstring (file_name), VALUE (mode));
return cell_unspecified;
}
SCM SCM
isatty_p (SCM port) isatty_p (SCM port)
{ {