X-Git-Url: https://jxself.org/git/?p=mes.git;a=blobdiff_plain;f=src%2Fposix.c;h=e8ec52a1c992323cb999897afa97fc7bb52a3101;hp=f0a020d9d2f458032171222e556ceba85226670c;hb=2cc6f166db12dcf9fc2754f4d7cd43c13882fb38;hpb=e3b929aa878178773eb19bf10143be5f81e32e06

diff --git a/src/posix.c b/src/posix.c
index f0a020d9..e8ec52a1 100644
--- 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)
 {