projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e3b929a
)
core: Add chmod.
author
Jan Nieuwenhuizen
<janneke@gnu.org>
Fri, 27 Apr 2018 21:31:45 +0000
(23:31 +0200)
committer
Jan Nieuwenhuizen
<janneke@gnu.org>
Fri, 27 Apr 2018 21:31:45 +0000
(23:31 +0200)
* src/posix.c (chmod_): New function.
src/posix.c
patch
|
blob
|
history
diff --git
a/src/posix.c
b/src/posix.c
index f0a020d9d2f458032171222e556ceba85226670c..e8ec52a1c992323cb999897afa97fc7bb52a3101 100644
(file)
--- a/
src/posix.c
+++ b/
src/posix.c
@@
-200,6
+200,13
@@
force_output (SCM p) ///((arity . n))
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
isatty_p (SCM port)
{