Changeset 14397 in project for chicken


Ignore:
Timestamp:
04/23/09 09:41:31 (11 years ago)
Author:
felix winkelmann
Message:

setup-download closes in and out ports together; increased read/write timeout to 20 secs (#13)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/setup-download.scm

    r13942 r14397  
    4040  (import extras regex posix utils srfi-1 data-structures tcp srfi-13 files setup-api)
    4141
    42   (tcp-connect-timeout 10000)           ; 10 seconds
    43   (tcp-read-timeout 10000)
    44   (tcp-write-timeout 10000)
     42  (define-constant +default-tcp-connect-timeout+ 10000) ; 10 seconds
     43  (define-constant +default-tcp-read/write-timeout+ 10000) ; 20 seconds
     44
     45  (tcp-connect-timeout +default-tcp-connect-timeout+)
     46  (tcp-read-timeout +default-tcp-read/write-timeout+)
     47  (tcp-write-timeout +default-tcp-read/write-timeout+)
    4548
    4649  (define *quiet* #f)
     
    214217       (make-HTTP-GET/1.1 locn *chicken-install-user-agent* host port: port accept: "*/*")
    215218       out)
    216       (close-output-port out)
     219      (flush-output out)
    217220      (d "reading response ...~%")
    218221      (let ([chunked #f])
     
    241244                [(or (eof-object? name) (not name))
    242245                 (close-input-port in)
     246                 (close-output-port out)
    243247                 (reverse files) ]
    244248                [(not (string? name))
Note: See TracChangeset for help on using the changeset viewer.