Overview
| Comment: | Removed last 2 args from definition of http-transport-handler |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-tcp-inmem |
| Files: | files | file ages | folders |
| SHA1: |
4193a11be6357866d64728c931af92f7 |
| User & Date: | mmgraham on 2023-02-16 19:53:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-02-17
| ||
| 06:02 | Merged fork check-in: f756aa00cd user: matt tags: v1.80-tcp-inmem | |
|
2023-02-16
| ||
| 19:53 | Removed last 2 args from definition of http-transport-handler check-in: 4193a11be6 user: mmgraham tags: v1.80-tcp-inmem | |
| 19:07 | added mtargs declaration and import check-in: 4a7d4f4801 user: mmgraham tags: v1.80-tcp-inmem | |
Changes
Modified rmt.scm from [92c8008249] to [2a925edf81].
| ︙ | ︙ | |||
124 125 126 127 128 129 130 |
(if (not runremote)
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
(let* ((dbfname (conc (dbfile:run-id->dbnum rid)".db"))) ;;(dbfile:run-id->path areapath run-id)))
(tt:handler runremote cmd rid params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)))
| | | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 |
(if (not runremote)
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
(let* ((dbfname (conc (dbfile:run-id->dbnum rid)".db"))) ;;(dbfile:run-id->path areapath run-id)))
(tt:handler runremote cmd rid params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)))
(define (http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode)
;; do all the prep locked under the rmt-mutex
(mutex-lock! *rmt-mutex*)
;; ensure we have a record for our connection for given area
(if (not runremote) ;; can remove this one. should never get here.
(begin
(set! *runremote* (make-and-init-remote areapath))
|
| ︙ | ︙ |