mes: Add isatty?.
[mes.git] / src / posix.c
index 2e6b3a8c89db5f2d432feb23da4bf436a7bd26ca..f0a020d9d2f458032171222e556ceba85226670c 100644 (file)
@@ -199,3 +199,9 @@ force_output (SCM p) ///((arity . n))
 {
   return cell_unspecified;
 }
+
+SCM
+isatty_p (SCM port)
+{
+  return isatty (VALUE (port)) ? cell_t : cell_f;
+}