415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
|
(let ((dstruct (vector run tests key-vals (- (current-seconds) 10))))
(hash-table-set! (d:alldat-allruns-by-id data) run-id dstruct)
(set! result (cons dstruct result))))))))
runs)
(d:alldat-header-set! data header)
(d:alldat-allruns-set! data result)
(debug:print-info 6 #f "(d:alldat-allruns data) has " (length (d:alldat-allruns data)) " runs")
maxtests))
(define *collapsed* (make-hash-table))
; (define *row-lookup* (make-hash-table)) ;; testname => (rownum lableobj)
(define (toggle-hide lnum) ; fulltestname)
(let* ((btn (vector-ref (dboard:uidat-get-lftcol uidat) lnum))
|
|
|
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
|
(let ((dstruct (vector run tests key-vals (- (current-seconds) 10))))
(hash-table-set! (d:alldat-allruns-by-id data) run-id dstruct)
(set! result (cons dstruct result))))))))
runs)
(d:alldat-header-set! data header)
(d:alldat-allruns-set! data result)
(debug:print-info 6 *default-log-port* "(d:alldat-allruns data) has " (length (d:alldat-allruns data)) " runs")
maxtests))
(define *collapsed* (make-hash-table))
; (define *row-lookup* (make-hash-table)) ;; testname => (rownum lableobj)
(define (toggle-hide lnum) ; fulltestname)
(let* ((btn (vector-ref (dboard:uidat-get-lftcol uidat) lnum))
|