~ chicken-core (chicken-5) fbc508bcb19d66a3add3e67106f187bd5b4ba3c1

commit fbc508bcb19d66a3add3e67106f187bd5b4ba3c1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Mar 19 17:59:02 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Mar 19 17:59:02 2011 +0100

    close-input-pipe didn't return status on windows (thanks to Mario)

diff --git a/posixwin.scm b/posixwin.scm
index a7305e31..a1e976ab 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1165,7 +1165,9 @@ EOF
       (##sys#check-port port 'close-input-pipe)
       (let ((r (##core#inline "close_pipe" port)))
 	(##sys#update-errno)
-	(when (eq? -1 r) (##sys#signal-hook #:file-error 'close-input-pipe "error while closing pipe" port)) ) ) )
+	(when (eq? -1 r)
+	  (##sys#signal-hook #:file-error 'close-input-pipe "error while closing pipe" port) )
+	r)))
   (set! close-output-pipe close-input-pipe) )
 
 (define call-with-input-pipe