~ chicken-core (chicken-5) 6428a9df0a387e24096432c86e21dffcde6cacd5

commit 6428a9df0a387e24096432c86e21dffcde6cacd5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed May 14 16:01:57 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 14 16:01:57 2025 +0200

    correct mistakes in file.scm

diff --git a/file.scm b/file.scm
index 1e4d6a47..e46925f5 100644
--- a/file.scm
+++ b/file.scm
@@ -63,14 +63,14 @@ static C_word C_rename(C_word old, C_word new) {
 
 # define C_remove(str)       C_fix(_wremove(C_utf16(str, 0)))
 # define C_rmdir(str)        C_fix(_wrmdir(C_utf16(str, 0)))
-# define C_mkdir(str)        C_fix(_wmkdir(C_utf16(str, 0), S_IRWXU | S_IRWXG | S_IRWXO))
+# define C_mkdir(str)        C_fix(_wmkdir(C_utf16(str, 0)))
 #else
 # include <sys/stat.h>
-# define C_test_access(fn, m) C_fix(access(C_utf16(C_c_string(fn), C_unfix(m)))
+# define C_test_access(fn, m) C_fix(access(C_c_string(fn), C_unfix(m)))
 # define C_rename(old, new)  C_fix(rename(C_c_string(old), C_c_string(new)))
 # define C_remove(str)       C_fix(remove(C_c_string(str)))
 # define C_rmdir(str)        C_fix(rmdir(C_c_string(str)))
-# define C_mkdir(str)        C_fix(mkdir(C_c_string(str)))
+# define C_mkdir(str)        C_fix(mkdir(C_c_string(str), S_IRWXU | S_IRWXG | S_IRWXO))
 #endif
 
 #include <sys/types.h>