Changeset 39079 in project


Ignore:
Timestamp:
10/29/20 14:47:45 (5 weeks ago)
Author:
Moritz Heidkamp
Message:

vandusen-remote: Disable tcp-accept-timeout again

I misunderstood its purpose :-)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/vandusen/trunk/vandusen-remote.scm

    r39075 r39079  
    1616
    1717            (thread-start! (lambda ()
    18                              (parameterize ((tcp-accept-timeout 10000)
    19                                             (tcp-read-timeout 3000))
     18                             (parameterize ((tcp-read-timeout 3000))
    2019                               (let loop ()
    2120                                 (condition-case
     
    3736                                                                     (close-output-port out)))))
    3837                                              (loop))
    39                                    (e (exn i/o net timeout)
    40                                       (print "tcp-accept timed out")
     38                                   (e (exn i/o net)
     39                                      (print-error-message e (current-error-port) "Error on tcp-accept")
     40                                      (flush-output (current-error-port))
    4141                                      (loop))))))))))
    4242
Note: See TracChangeset for help on using the changeset viewer.