From 8f4dbef2cd3a69c690f14f466c843d7956267b3a Mon Sep 17 00:00:00 2001
From: LemonBoy <address@hidden>
Date: Mon, 7 Dec 2015 21:50:56 +0100
Subject: [PATCH 1/2] Make ##sys#stat work with ports.

---
 posix-common.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/posix-common.scm b/posix-common.scm
index 70e532e..d17329d 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
-- 
2.6.3