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

allow the extra argument in ssl-addresses

Browse Source 
svn: r17447
This commit is contained in:
Eli Barzilay 2009-12-31 02:59:04 +00:00
parent 7025f6dad4
commit a0ff244a81
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/openssl/mzssl.ss
View File

@ -937,12 +937,12 @@
(raise-type-error who what port))
(let ([p (ephemeron-value v)])
(values (car p) (cdr p)))))
(define (ssl-addresses p)
(define (ssl-addresses p . more)
(let-values ([(mzssl input?) (lookup 'ssl-addresses "SSL port" p)])
(if input?
(tcp-addresses (mzssl-i mzssl))
(tcp-addresses (mzssl-o mzssl)))))
(apply tcp-addresses
(if input? (mzssl-i mzssl) (mzssl-o mzssl))
more)))
(define (ssl-abandon-port p)
(let-values ([(mzssl input?) (lookup 'ssl-abandon-port "SSL output port" p)])