Overview
| Comment: | rmt:get-key-val-pairs was using wrong db. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
335653cb5f1e29ece3d21f3b9538273a |
| User & Date: | matt on 2023-02-23 06:04:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-02-23
| ||
| 08:46 | configf ext-tests fixed. check-in: 5cb7bf9076 user: matt tags: v1.80 | |
| 06:04 | rmt:get-key-val-pairs was using wrong db. check-in: 335653cb5f user: matt tags: v1.80 | |
|
2023-02-22
| ||
| 12:27 | Improved messages on -list-runs check-in: c8040a78fa user: matt tags: v1.80 | |
Changes
Modified rmt.scm from [73327553e5] to [24dfb2a0ed].
| ︙ | ︙ | |||
470 471 472 473 474 475 476 477 478 | (rmt:send-receive 'get-tests-tags #f '())) ;;====================================================================== ;; K E Y S ;;====================================================================== ;; These require run-id because the values come from the run! ;; (define (rmt:get-key-val-pairs run-id) | > | | 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 |
(rmt:send-receive 'get-tests-tags #f '()))
;;======================================================================
;; K E Y S
;;======================================================================
;; These require run-id because the values come from the run!
;; however the query must still apply to main.db
;;
(define (rmt:get-key-val-pairs run-id)
(rmt:send-receive 'get-key-val-pairs #f (list run-id)))
(define (rmt:get-keys)
(if *db-keys* *db-keys*
(let ((res (rmt:send-receive 'get-keys #f '())))
(set! *db-keys* res)
res)))
|
| ︙ | ︙ |