Overview
| Comment: | Fixed wrong use of optional (should have been key) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-diet2 |
| Files: | files | file ages | folders |
| SHA1: |
2b81179a9bbabe7ee942bc3160c79767 |
| User & Date: | matt on 2021-01-18 15:29:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-01-19
| ||
| 12:14 | Commented out few telemetry calls check-in: f6629c6cb4 user: mrwellan tags: v1.65-diet2 | |
|
2021-01-18
| ||
| 15:29 | Fixed wrong use of optional (should have been key) check-in: 2b81179a9b user: matt tags: v1.65-diet2 | |
| 11:10 | Repaired some rmt:get-preq calls. ==1.08/0.44/1205/PASS/mars== check-in: f5ecefc579 user: matt tags: v1.65-diet2 | |
Changes
Modified runs.scm from [cef378ba5a] to [4de72ed2f2].
| ︙ | ︙ | |||
831 832 833 834 835 836 837 | ;; => review of a previously seen test is higher priority of never visited test ;; reg - list of previously visited tests ;; tal - list of never visited tests ;; prefer next hed to be from reg than tal. (define runs:nothing-left-in-queue-count 0) | | | 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 |
;; => review of a previously seen test is higher priority of never visited test
;; reg - list of previously visited tests
;; tal - list of never visited tests
;; prefer next hed to be from reg than tal.
(define runs:nothing-left-in-queue-count 0)
(define (runs:lazy-get-prereqs-not-met testdat run-id waitons hed item-path #!key (mode '(normal))(itemmaps #f)) ;; mode: testmode itemmaps: itemmaps)
(if (and (runs:testdat-prereqs-not-met testdat)
(< (- (current-seconds) (runs:testdat-last-update testdat)) 10)) ;; only refresh for this test if it has been at least 10 seconds
(runs:testdat-prereqs-not-met testdat)
(let* ((res (let ((res (rmt:get-prereqs-not-met run-id waitons hed item-path mode itemmaps)))
(if (list? res)
res
(begin
|
| ︙ | ︙ |