9front: allow file/open of directories

Noam Preil · Noam Preil · commit 7c311101951c · 2025-12-12T04:32:19.000Z
diff --git a/src/core/io.c b/src/core/io.c
@@ -167,7 +167,7 @@ JANET_CORE_FN(cfun_io_fopen,
     }
     FILE *f = fopen((const char *)fname, (const char *)fmode);
     if (f != NULL) {
-#ifndef JANET_WINDOWS
+#if !(defined(JANET_WINDOWS) || defined(JANET_PLAN9))
         struct stat st;
         fstat(fileno(f), &st);
         if (S_ISDIR(st.st_mode)) {

Original file line number	Diff line number	Diff line change
`@@ -167,7 +167,7 @@ JANET_CORE_FN(cfun_io_fopen,`
`167`	`167`	`}`
`168`	`168`	`FILE f = fopen((const char )fname, (const char *)fmode);`
`169`	`169`	`if (f != NULL) {`
`170`		`-#ifndef JANET_WINDOWS`
	`170`	`+#if !(defined(JANET_WINDOWS) \|\| defined(JANET_PLAN9))`
`171`	`171`	`struct stat st;`
`172`	`172`	`fstat(fileno(f), &st);`
`173`	`173`	`if (S_ISDIR(st.st_mode)) {`