Overview
| Comment: | fixed bad call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.001 |
| Files: | files | file ages | folders |
| SHA1: |
90f865fbd41a78abd86625efb0134641 |
| User & Date: | matt on 2021-12-18 17:53:25 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-12-18
| ||
| 20:07 | Improved results from unit tests. WIP check-in: e2e75e9fde user: matt tags: v2.001 | |
| 17:53 | fixed bad call check-in: 90f865fbd4 user: matt tags: v2.001 | |
| 14:47 | fixed bad call check-in: 7d2dde810d user: matt tags: v2.001 | |
Changes
Modified rmtmod.scm from [bd4f6715fb] to [22593ed69e].
| ︙ | ︙ | |||
219 220 221 222 223 224 225 | (< (current-seconds) (conndat-expires conn))) conn ;; we are current and good to go - we'll deal elsewhere with a server that was killed or died ;; Below we will find or create and connect to main (let* ((dbname (db:run-id->dbname #f)) (the-srv (rmt:find-main-server apath dbname)) (start-main-srv (lambda () ;; call IF there is no the-srv found (api:run-server-process apath dbname) | | | 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 | (< (current-seconds) (conndat-expires conn))) conn ;; we are current and good to go - we'll deal elsewhere with a server that was killed or died ;; Below we will find or create and connect to main (let* ((dbname (db:run-id->dbname #f)) (the-srv (rmt:find-main-server apath dbname)) (start-main-srv (lambda () ;; call IF there is no the-srv found (api:run-server-process apath dbname) (thread-sleep! 1) (rmt:open-main-connection remdat apath) ;; TODO: Add limit to number of tries ))) (if (not the-srv) ;; have server, try connecting to it (start-main-srv) (let* ((srv-addr (server-address the-srv)) ;; need serv (ipaddr (alist-ref 'ipaddr the-srv)) (port (alist-ref 'port the-srv)) |
| ︙ | ︙ |