Overview
| Comment: | Removed couple more uses of debug stuff. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-try3 |
| Files: | files | file ages | folders |
| SHA1: |
dde06b663fd358e1704ecf43df346520 |
| User & Date: | matt on 2019-12-06 04:37:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-12-06
| ||
| 04:50 | Clean up check-in: a7636bcfcc user: matt tags: v1.65-try3 | |
| 04:37 | Removed couple more uses of debug stuff. check-in: dde06b663f user: matt tags: v1.65-try3 | |
| 04:16 | moved the old compilation unit files to the attic, removed some debug stuff of Brandons, TODO: put that stuff into a module and enable use of it. check-in: 7e32aa8d9e user: matt tags: v1.65-try3 | |
Changes
Modified dashboard.scm from [a80924c869] to [96d2c80da7].
| ︙ | ︙ | |||
229 230 231 232 233 234 235 | (lambda (updater) ;; (debug:print 3 *default-log-port* "Running " updater) (updater)) updaters)))) ;; register tabdat with BBpp ;; this is used by BBpp (Brandon's pretty printer) to convert dboard:tabdat into a composition of lists that pp will handle | | | 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 |
(lambda (updater)
;; (debug:print 3 *default-log-port* "Running " updater)
(updater))
updaters))))
;; register tabdat with BBpp
;; this is used by BBpp (Brandon's pretty printer) to convert dboard:tabdat into a composition of lists that pp will handle
#;(hash-table-set! *BBpp_custom_expanders_list* TABDAT:
(cons dboard:tabdat?
(lambda (tabdat-item)
(filter
(lambda (alist-entry)
(member (car alist-entry)
'(allruns-by-id allruns))) ;; FIELDS OF INTEREST
(dboard:tabdat->alist tabdat-item)))))
|
| ︙ | ︙ | |||
265 266 267 268 269 270 271 | (dboard:tabdat-keys-set! tabdat (rmt:get-keys)) (dboard:tabdat-dbkeys-set! tabdat (append (dboard:tabdat-keys tabdat) (list "runname"))) (dboard:tabdat-tot-runs-set! tabdat (rmt:get-num-runs "%")) ) ;; register dboard:rundat with BBpp ;; this is used by BBpp (Brandon's pretty printer) to convert dboard:rundat into a composition of lists that pp will handle | | | 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 |
(dboard:tabdat-keys-set! tabdat (rmt:get-keys))
(dboard:tabdat-dbkeys-set! tabdat (append (dboard:tabdat-keys tabdat) (list "runname")))
(dboard:tabdat-tot-runs-set! tabdat (rmt:get-num-runs "%"))
)
;; register dboard:rundat with BBpp
;; this is used by BBpp (Brandon's pretty printer) to convert dboard:rundat into a composition of lists that pp will handle
#;(hash-table-set! *BBpp_custom_expanders_list* RUNDAT:
(cons dboard:rundat?
(lambda (tabdat-item)
(filter
(lambda (alist-entry)
(member (car alist-entry)
'(run run-data-offset ))) ;; FIELDS OF INTEREST
(dboard:rundat->alist tabdat-item)))))
|
| ︙ | ︙ |