~ chicken-core (chicken-5) 284233d46d63a948f1bf5dbf626e39df7ca3fe96

commit 284233d46d63a948f1bf5dbf626e39df7ca3fe96
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 30 16:06:21 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jan 20 08:54:43 2012 +0100

    small types.db fix for close-output-pipe

diff --git a/types.db b/types.db
index f91decd7..f7e73f30 100644
--- a/types.db
+++ b/types.db
@@ -1537,7 +1537,7 @@
 (change-file-mode (#(procedure #:clean #:enforce) change-file-mode (string fixnum) undefined))
 (change-file-owner (#(procedure #:clean #:enforce) change-file-owner (string fixnum fixnum) undefined))
 (close-input-pipe (#(procedure #:clean #:enforce) close-input-pipe (input-port) fixnum))
-(close-output-pipe (#(procedure #:clean #:enforce) close-output-pipe (input-port) fixnum))
+(close-output-pipe (#(procedure #:clean #:enforce) close-output-pipe (output-port) fixnum))
 (create-directory (#(procedure #:clean #:enforce) create-directory (string #!optional *) string))
 (create-fifo (#(procedure #:clean #:enforce) create-fifo (string #!optional fixnum) undefined))
 (create-pipe (procedure create-pipe () fixnum fixnum))