core: Add chmod.

* src/posix.c (chmod_): New function.

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)
 {