~ chicken-core (chicken-5) 7729e51103332102682f6cc361f54ff96f3bac61

commit 7729e51103332102682f6cc361f54ff96f3bac61
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Fri Nov 30 22:55:24 2018 +0100
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Dec 2 15:30:05 2018 +1300

    Test for port direction when setting up flock struct
    
    We create a read lock only on input ports, output ports and
    bidirectional ports will get a write lock.
    
    This fixes #1565.
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/posixunix.scm b/posixunix.scm
index a85f9dce..ad1f42c4 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -990,7 +990,7 @@ static int set_file_mtime(char *filename, C_word atime, C_word mtime)
       (if (eq? #t len)
           (set! len 0)
           (##sys#check-exact-integer len loc) )
-      (##core#inline "C_flock_setup" (if (##sys#slot port 1) _f_rdlck _f_wrlck) start len)
+      (##core#inline "C_flock_setup" (if (= (##sys#slot port 1) 1) _f_rdlck _f_wrlck) start len)
       (##sys#make-structure 'lock port start len) ) )
   (define (err msg lock loc)
     (posix-error #:file-error loc msg (##sys#slot lock 1) (##sys#slot lock 2) (##sys#slot lock 3)) )