~ chicken-core (master) c0fc517bd6c205d177023bc7cc52869fea1e0e6e

commit c0fc517bd6c205d177023bc7cc52869fea1e0e6e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jul 12 09:42:18 2025 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jul 12 09:42:18 2025 +0200

    disable use of flock on haiku
    
    (reported by "kniffy")

diff --git a/posixunix.scm b/posixunix.scm
index 317f0e5c..083cc57f 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -161,7 +161,15 @@ static int C_uw;
 
 static C_word C_flock(C_word n, C_word f)
 {
+#ifdef __HAIKU__
+# define LOCK_SH	0
+# define LOCK_EX	0
+# define LOCK_NB 	0
+# define LOCK_UN	0
+	return C_fix(-1);
+#else
     return C_fix(flock(C_unfix(n), C_unfix(f)));
+#endif
 }
 
 static sigset_t C_sigset;