From a0ff244a817e974d9d8f10fe6aa50bde940fdb5e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 31 Dec 2009 02:59:04 +0000 Subject: [PATCH] allow the extra argument in ssl-addresses svn: r17447 --- collects/openssl/mzssl.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/openssl/mzssl.ss b/collects/openssl/mzssl.ss index 45ca03e2a9..27f0b400d0 100644 --- a/collects/openssl/mzssl.ss +++ b/collects/openssl/mzssl.ss @@ -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)])