From 7775a30a7f4a1666d68410d9b7c2d6f6e7ec7631 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Thu, 29 Nov 2012 00:47:54 -0500
Subject: [PATCH] fix contract mistakes

---
 collects/openssl/mzssl.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/openssl/mzssl.rkt b/collects/openssl/mzssl.rkt
index 8f24c7a3d8..9a93deba11 100644
--- a/collects/openssl/mzssl.rkt
+++ b/collects/openssl/mzssl.rkt
@@ -47,11 +47,11 @@ TO DO:
   [ssl-available? boolean?]
   [ssl-load-fail-reason (or/c #f string?)]
   [ssl-make-client-context
-   (c-> protocol-symbol/c ssl-client-context?)]
+   (->* () (protocol-symbol/c) ssl-client-context?)]
   [ssl-secure-client-context
    (c-> ssl-client-context?)]
   [ssl-make-server-context
-   (c-> protocol-symbol/c ssl-server-context?)]
+   (->* () (protocol-symbol/c) ssl-server-context?)]
   [ssl-client-context?
    (c-> any/c boolean?)]
   [ssl-server-context?
@@ -153,7 +153,7 @@ TO DO:
         [any/c]
         any)]
   [ssl-abandon-port
-   (c-> (and/c input-port? ssl-port?) void?)]
+   (c-> (and/c ssl-port? output-port?) void?)]
   [ssl-port?
    (c-> any/c boolean?)]))