Overview
| Comment: | removed debug print |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
959e9187258f0bd6e0c85c9a553f7a56 |
| User & Date: | pjhatwal on 2023-04-13 13:12:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-04-13
| ||
| 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 | |
| 10:51 | Fix for servinffile check-in: f540745977 user: pjhatwal tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [ab4fa574fe] to [d4fd32cfdb].
| ︙ | ︙ | |||
219 220 221 222 223 224 225 |
(define (tt:handler ttdat cmd run-id params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)
;; NOTE: areapath is passed in and in tt struct. We'll use passed in value for now.
(let* ((conn (tt:client-connect-to-server ttdat dbfname run-id testsuite))) ;; (hash-table-ref/default (tt-conns ttdat) dbfname #f)))
(if conn
;; have connection, call the server
(let* ((res (tt:send-receive ttdat conn cmd run-id params)))
;; res is (status errmsg result meta)
| | | 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 |
(define (tt:handler ttdat cmd run-id params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)
;; NOTE: areapath is passed in and in tt struct. We'll use passed in value for now.
(let* ((conn (tt:client-connect-to-server ttdat dbfname run-id testsuite))) ;; (hash-table-ref/default (tt-conns ttdat) dbfname #f)))
(if conn
;; have connection, call the server
(let* ((res (tt:send-receive ttdat conn cmd run-id params)))
;; res is (status errmsg result meta)
; (debug:print 0 *default-log-port* "conn:" conn " res: " res)
(match res
((status errmsg result meta)
(if (list? meta)
(let* ((delay-wait (alist-ref 'delay-wait meta)))
(if (and (number? delay-wait)
(> delay-wait 0))
(begin
|
| ︙ | ︙ |