Changeset 36536 in project


Ignore:
Timestamp:
09/06/18 22:14:05 (2 months ago)
Author:
wasamasa
Message:

Wrap tcp6 import into eval again

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/openssl/trunk/openssl.scm

    r36535 r36536  
    681681                 tcp-abandon-port tcp-buffer-size tcp-connect
    682682                 tcp-read-timeout tcp-write-timeout))
    683    (let ()
    684      (cond-expand
    685       (chicken-4
    686        (use tcp6))
    687       (chicken-5
    688        (import tcp6)))
    689      (values tcp-listen tcp-listener-fileno tcp-listener-port
    690              tcp-accept tcp-accept-ready? tcp-close
    691              tcp-abandon-port tcp-buffer-size tcp-connect
    692              tcp-read-timeout tcp-write-timeout))))
     683   (eval '(let ()
     684            (cond-expand
     685             (chicken-4
     686              (use tcp6))
     687             (chicken-5
     688              (import tcp6)))
     689            (values tcp-listen tcp-listener-fileno tcp-listener-port
     690                    tcp-accept tcp-accept-ready? tcp-close
     691                    tcp-abandon-port tcp-buffer-size tcp-connect
     692                    tcp-read-timeout tcp-write-timeout)))))
    693693
    694694(define (ssl-listen port #!optional (backlog 4) (hostname #f) (protocol 'sslv2-or-v3))
Note: See TracChangeset for help on using the changeset viewer.