Changeset 36533 in project


Ignore:
Timestamp:
09/06/18 22:08:26 (12 days ago)
Author:
wasamasa
Message:

Don’t use eval to load the tcp and tcp6 library (Kooda)

File:
1 edited

Legend:

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

    r36514 r36533  
    670670                           tcp-read-timeout tcp-write-timeout)
    671671  (handle-exceptions
    672       exn (eval
    673            '(let ()
    674               (cond-expand
    675                (chicken-4
    676                 (use tcp))
    677                (chicken-5
    678                 (import (chicken tcp))))
    679               (values tcp-listen tcp-listener-fileno tcp-listener-port
    680                       tcp-accept tcp-accept-ready? tcp-close
    681                       tcp-abandon-port tcp-buffer-size tcp-connect
    682                       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)))))
     672   exn (let ()
     673         (cond-expand
     674          (chicken-4
     675           (use tcp))
     676          (chicken-5
     677           (import (chicken tcp))))
     678         (values tcp-listen tcp-listener-fileno tcp-listener-port
     679                 tcp-accept tcp-accept-ready? tcp-close
     680                 tcp-abandon-port tcp-buffer-size tcp-connect
     681                 tcp-read-timeout tcp-write-timeout))
     682   (let ()
     683     (cond-expand
     684      (chicken-4
     685       (use tcp6))
     686      (chicken-5
     687       (import tcp6)))
     688     (values tcp-listen tcp-listener-fileno tcp-listener-port
     689             tcp-accept tcp-accept-ready? tcp-close
     690             tcp-abandon-port tcp-buffer-size tcp-connect
     691             tcp-read-timeout tcp-write-timeout))))
    693692
    694693(define (ssl-listen port #!optional (backlog 4) (hostname #f) (protocol 'sslv2-or-v3))
Note: See TracChangeset for help on using the changeset viewer.