mes: Add setenv.
[mes.git] / src / posix.c
index 9d923c80b629f8f279be225362796ceff1e37466..a245e972dc5c44e349d7758825624fd6c63455b4 100644 (file)
@@ -135,6 +135,15 @@ getenv_ (SCM s) ///((name . "getenv"))
   return p ? MAKE_STRING (cstring_to_list (p)) : cell_f;
 }
 
+SCM
+setenv_ (SCM s, SCM v) ///((name . "setenv"))
+{
+  char buf[1024];
+  strcpy (buf, string_to_cstring (s));
+  setenv (buf, string_to_cstring (v), 1);
+  return cell_unspecified;
+}
+
 SCM
 access_p (SCM file_name, SCM mode)
 {