Overview
| Comment: | Removed assert that is in wrong place |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
f026e9979dff5f05dd77b3d525590160 |
| User & Date: | mrwellan on 2023-04-13 15:37:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-04-14
| ||
| 06:17 | Missed a location using launch:is-test-alive, converted it to commonmod: check-in: c7687dbe89 user: matt tags: v1.80 | |
|
2023-04-13
| ||
| 15:54 | added assert for good db to dbmod:with-db check-in: b6788d6803 user: mmgraham tags: v1.80 | |
| 15:37 | Removed assert that is in wrong place check-in: f026e9979d user: mrwellan tags: v1.80 | |
| 13:12 | removed debug print check-in: 959e918725 user: pjhatwal tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [d4fd32cfdb] to [9c6068b733].
| ︙ | ︙ | |||
426 427 428 429 430 431 432 | #f) ((>= tries-remaining 0) (let* ((backoff-delay (max (* (- 26 tries-remaining) 0.1) 1.0))) (debug:print 0 *default-log-port* "WARNING: TCP overload, trying again in "backoff-delay"s.") (thread-sleep! backoff-delay) (tt:backoff-incr host port) (retry)) | | > | 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 |
#f)
((>= tries-remaining 0)
(let* ((backoff-delay (max (* (- 26 tries-remaining) 0.1) 1.0)))
(debug:print 0 *default-log-port* "WARNING: TCP overload, trying again in "backoff-delay"s.")
(thread-sleep! backoff-delay)
(tt:backoff-incr host port)
(retry))
;; (assert #f "FATAL: Too many retries in tt:send-receive-direct")
)
(else #f))))
(exn ()
(full-err-print exn "Unhandled exception from client side.")
#f))))
;;======================================================================
|
| ︙ | ︙ |