1 files changed, 15 insertions, 0 deletions
diff --git a/otherlibs/unix/closedir.c b/otherlibs/unix/closedir.c
new file mode 100644
index 000000000..2701e51d6
--- /dev/null
+++ b/otherlibs/unix/closedir.c
@@ -0,0 +1,15 @@
+#include <mlvalues.h>
+#include "unix.h"
+#include <sys/types.h>
+#ifdef HAS_DIRENT
+#include <dirent.h>
+#else
+#include <sys/dir.h>
+#endif
+
+value unix_closedir(d)           /* ML */
+     value d;
+{
+  closedir((DIR *) d);
+  return Val_unit;
+}