core: Add chmod.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 27 Apr 2018 21:31:45 +0000 (23:31 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 27 Apr 2018 21:31:45 +0000 (23:31 +0200)
* src/posix.c (chmod_): New function.

src/posix.c

index f0a020d9d2f458032171222e556ceba85226670c..e8ec52a1c992323cb999897afa97fc7bb52a3101 100644 (file)
@@ -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)
 {