[Chicken-hackers] shouldn't file-close dispatch an interrupt on EINTR?

[Jörg F . Wittenberger]

Hi all,

after literally years of wondering why I'm seeing lost file descriptors
I _guess_ I spotted the reason.  file-close raises an error when
close(2) returns a negative value.  IMHO it should look like this (not
yet tested):

(define file-close
  (lambda (fd)
    (##sys#check-exact fd 'file-close)
    (if (fx< (##core#inline "C_close" fd) 0)
        (select _errno
         ((_eintr) (##sys#dispatch-interrupt (lambda () (file-close fd))))
         (else (posix-error #:file-error 'file-close "cannot close file" fd)))
) ) )

Cheers

/Jörg