Changeset 36597 in project


Ignore:
Timestamp:
09/14/18 10:04:35 (3 months ago)
Author:
wasamasa
Message:

Drop C4 support, we're in the C5-specific repo...

File:
1 edited

Legend:

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

    r36536 r36597  
    3333   net-unwrap-tcp-ports)
    3434
    35 (import scheme) ; C4 hack for cond-expand
    36 
    37 (cond-expand
    38  (chicken-4
    39   (import scheme chicken foreign ports)
    40   (use srfi-13 srfi-18)
    41   (import
    42    (only data-structures ->string)
    43    (only files make-pathname)
    44    (only address-info address-infos))
    45   (require-library
    46    data-structures address-info))
    47 
    48  (chicken-5
    49   (import scheme)
    50   (import (chicken base))
    51   (import (chicken foreign))
    52   (import (chicken blob))
    53   (import (chicken condition))
    54   (import (chicken port))
    55   (import (chicken fixnum))
    56   (import (chicken gc))
    57   (import (chicken string))
    58   (import (chicken time))
    59   (import (srfi 13))
    60   (import (srfi 18))
    61   (import (only address-info address-infos))))
     35(import scheme)
     36(import (chicken base))
     37(import (chicken foreign))
     38(import (chicken blob))
     39(import (chicken condition))
     40(import (chicken port))
     41(import (chicken fixnum))
     42(import (chicken gc))
     43(import (chicken string))
     44(import (chicken time))
     45(import (srfi 13))
     46(import (srfi 18))
     47(import (only address-info address-infos))
    6248
    6349(declare
     
    127113
    128114(define (tcp-port->fileno p loc)
    129   (cond-expand
    130    (chicken-4
    131     (##sys#tcp-port->fileno p))
    132 
    133    (chicken-5
    134     ;; copied from tcp.scm in core
    135     (let ((data (##sys#port-data p)))
    136       (if (vector? data) ; a meagre test, but better than nothing
    137           (##sys#slot data 0)
    138           (error loc "argument does not appear to be a TCP port" p))))))
     115  ;; copied from tcp.scm in core
     116  (let ((data (##sys#port-data p)))
     117    (if (vector? data) ; a meagre test, but better than nothing
     118        (##sys#slot data 0)
     119        (error loc "argument does not appear to be a TCP port" p))))
    139120
    140121(define (net-unwrap-tcp-ports tcp-in tcp-out)
     
    672653  (handle-exceptions
    673654   exn (let ()
    674          (cond-expand
    675           (chicken-4
    676            (use tcp))
    677           (chicken-5
    678            (import (chicken tcp))))
     655         (import (chicken tcp))
    679656         (values tcp-listen tcp-listener-fileno tcp-listener-port
    680657                 tcp-accept tcp-accept-ready? tcp-close
     
    682659                 tcp-read-timeout tcp-write-timeout))
    683660   (eval '(let ()
    684             (cond-expand
    685              (chicken-4
    686               (use tcp6))
    687              (chicken-5
    688               (import tcp6)))
     661            (import tcp6)
    689662            (values tcp-listen tcp-listener-fileno tcp-listener-port
    690663                    tcp-accept tcp-accept-ready? tcp-close
Note: See TracChangeset for help on using the changeset viewer.