1 files changed, 25 insertions, 1 deletions
diff --git a/stream.c b/stream.c
index 7fde754a..190932d8 100644
--- a/stream.c
+++ b/stream.c
@@ -2378,7 +2378,7 @@ val rename_path(val from, val to)
   return t;
 }
 
-#if HAVE_SYS_STAT
+#if HAVE_MKDIR
 val mkdir_wrap(val path, val mode)
 {
   char *u8path = utf8_dup_to(c_str(path));
@@ -2391,6 +2391,18 @@ val mkdir_wrap(val path, val mode)
 
   return t;
 }
+#elif HAVE_WINDOWS_H
+val mkdir_wrap(val path, val mode)
+{
+  int err = _wmkdir(c_str(path));
+
+  (void) mode;
+  if (err < 0)
+    uw_throwf(file_error_s, lit("mkdir ~a: ~a/~s"),
+              path, num(errno), string_utf8(strerror(errno)), nao);
+
+  return t;
+}
 #endif
 
 #if HAVE_UNISTD_H
@@ -2430,6 +2442,8 @@ val getcwd_wrap(void)
   }
 }
 
+#if HAVE_MAKEDEV
+
 val makedev_wrap(val major, val minor)
 {
   return num(makedev(c_num(major), c_num(minor)));
@@ -2445,6 +2459,10 @@ val major_wrap(val dev)
   return num(major(c_num(dev)));
 }
 
+#endif
+
+#if HAVE_MKNOD
+
 val mknod_wrap(val path, val mode, val dev)
 {
   char *u8path = utf8_dup_to(c_str(path));
@@ -2459,6 +2477,10 @@ val mknod_wrap(val path, val mode, val dev)
   return t;
 }
 
+#endif
+
+#if HAVE_SYMLINK
+
 val symlink_wrap(val target, val to)
 {
   char *u8target = utf8_dup_to(c_str(target));
@@ -2516,6 +2538,8 @@ val readlink_wrap(val path)
 
 #endif
 
+#endif
+
 void stream_init(void)
 {
   protect(&std_input, &std_output, &std_debug, &std_error, &std_null, (val *) 0);