~ chicken-core (chicken-5) c0adebca86caa8e6c91b5d425bfb7d8f8c627e12

commit c0adebca86caa8e6c91b5d425bfb7d8f8c627e12
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Mon Dec 7 21:50:56 2015 +0100
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Tue Dec 8 11:58:42 2015 +0100

    Make ##sys#stat work with ports.
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/posix-common.scm b/posix-common.scm
index 70e532e4..d17329df 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -221,6 +221,7 @@ EOF
 
 (define (##sys#stat file link err loc)
   (let ((r (cond ((fixnum? file) (##core#inline "C_fstat" file))
+                 ((port? file) (##core#inline "C_fstat" (port->fileno file)))
                  ((string? file)
                   (let ((path (##sys#make-c-string
 			       (##sys#platform-fixup-pathname