Differences From Artifact [935bf4d2df]:
- File dashboard.scm — part of check-in [0f33ea4295] at 2020-08-24 00:23:16 on branch v1.65-cleanup — Added more granular exception handling ==/9.4/0.9/WARN/2102/mars/== ==/5.7/1.2/WARN/1201/mars/== (user: mrwellan, size: 170300) [annotate] [blame] [check-ins using] [more...]
To Artifact [065c30d7e0]:
- File attic/dashboard.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 170374) [annotate] [blame] [check-ins using]
- File dashboard.scm — part of check-in [f8657e116c] at 2021-02-14 22:33:19 on branch v1.65-real — Synced minor changes from modularized v1.6569-mult-db-wip branch (user: matt, size: 170374) [annotate] [blame] [check-ins using]
| ︙ | |||
575 576 577 578 579 580 581 582 583 584 585 586 587 588 | 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 | + + |
(let ((t-sort (assoc (configf:lookup *configdat* "dashboard" "testsort") *tests-sort-type-index*)))
(if t-sort
(cadr t-sort)
3)))
(define (get-curr-sort)
(vector-ref *tests-sort-options* *tests-sort-reverse*))
;;======================================================================
(debug:setup)
;; (define uidat #f)
(define-inline (dboard:uidat-get-keycol vec)(vector-ref vec 0))
(define-inline (dboard:uidat-get-lftcol vec)(vector-ref vec 1))
|
| ︙ |