suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

openssl: allow ssl-abandon-port on input ports

Browse Source 
Make `ssl-abandon-port` consistent with the docs and with
`tcp-abandon-port`.
This commit is contained in:
Matthew Flatt 2013-08-30 10:34:56 -06:00
parent 8b501f6745
commit 701aa9ce0a
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
racket/collects/openssl/mzssl.rkt
View File

@ -154,7 +154,7 @@ TO DO:
[any/c]
any)]
[ssl-abandon-port
(c-> (and/c ssl-port? output-port?) void?)]
(c-> ssl-port? void?)]
[ssl-port?
(c-> any/c boolean?)]))
@ -1262,9 +1262,13 @@ TO DO:
(define (ssl-abandon-port p)
(let-values ([(mzssl input?) (lookup 'ssl-abandon-port p)])
(set-mzssl-shutdown-on-close?! mzssl #f)
;; Call close-output-port to flush, shutdown, and decrement mzssl refcount.
(close-output-port p)))
(cond
[(output-port? p)
(set-mzssl-shutdown-on-close?! mzssl #f)
;; Call close-output-port to flush, shutdown, and decrement mzssl refcount.
(close-output-port p)]
[else
(close-input-port p)])))
(define (ssl-peer-verified? p)
(let-values ([(mzssl input?) (lookup 'ssl-peer-verified? p)])