              url-parts)))    
    (cond
     ((not (= 4 (length url-parts)))
      (die 'BAD-REQ-URL '() #f))
     ((string=? &quot;http:&quot; (car url-parts))
      (apply make-req url-parts))
     (else
      (die 'UNSUPPORTED-SCHEMA '() #f)
      ))))
)
</pre>
<h5><a name='codeapp6205' href='#docapp6205'>cond-expand</a></h5>
<i><a href='#tocapp6205'>Index</a></i><br>

<pre>(cond-expand
 (gambit
  ; For Gambit 4
  (define (open-tcp-connection host port-number)
    (assert (integer? port-number) (positiv