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)) (raise-type-error who what port))
(let ([p (ephemeron-value v)]) (let ([p (ephemeron-value v)])
(values (car p) (cdr p))))) (values (car p) (cdr p)))))
(define (ssl-addresses p) (define (ssl-addresses p . more)
(let-values ([(mzssl input?) (lookup 'ssl-addresses "SSL port" p)]) (let-values ([(mzssl input?) (lookup 'ssl-addresses "SSL port" p)])
(if input? (apply tcp-addresses
(tcp-addresses (mzssl-i mzssl)) (if input? (mzssl-i mzssl) (mzssl-o mzssl))
(tcp-addresses (mzssl-o mzssl))))) more)))
(define (ssl-abandon-port p) (define (ssl-abandon-port p)
(let-values ([(mzssl input?) (lookup 'ssl-abandon-port "SSL output port" p)]) (let-values ([(mzssl input?) (lookup 'ssl-abandon-port "SSL output port" p)])