Changeset 35554 in project
- Timestamp:
- 05/27/18 14:35:55 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/openssl/trunk/openssl.scm
r34564 r35554 48 48 ##sys#check-string)) 49 49 50 (use srfi-13 srfi-18 tcp)50 (use srfi-13 srfi-18) 51 51 52 52 (import … … 635 635 (listener ssl-unwrap-listener)) 636 636 637 ;; Import from tcp6 when available, otherwise fall back to the 638 ;; standard tcp library from CHICKEN core. 639 (define-values (tcp-listen tcp-listener-fileno tcp-listener-port 640 tcp-accept tcp-accept-ready? tcp-close 641 tcp-abandon-port tcp-buffer-size tcp-connect 642 tcp-read-timeout tcp-write-timeout) 643 (handle-exceptions 644 exn (eval 645 '(let () 646 (use tcp) 647 (values tcp-listen tcp-listener-fileno tcp-listener-port 648 tcp-accept tcp-accept-ready? tcp-close 649 tcp-abandon-port tcp-buffer-size tcp-connect 650 tcp-read-timeout tcp-write-timeout))) 651 (eval '(let () 652 (use tcp6) 653 (values tcp-listen tcp-listener-fileno tcp-listener-port 654 tcp-accept tcp-accept-ready? tcp-close 655 tcp-abandon-port tcp-buffer-size tcp-connect 656 tcp-read-timeout tcp-write-timeout))))) 657 637 658 (define (ssl-listen port #!optional (backlog 4) (hostname #f) (protocol 'sslv2-or-v3)) 638 659 (ssl-wrap-listener
Note: See TracChangeset
for help on using the changeset viewer.