Megatest

;; Update run_stats for given run_id
;; input data is a list (state status count)
;;
(define (db:update-run-stats dbstruct run-id stats-in)
  (let* ((stats (if (list? stats-in)
		    stats-in
		    (db:get-raw-run-stats run-id))))
		    (db:get-raw-run-stats dbstruct run-id))))
    (mutex-lock! *db-transaction-mutex*)
    (db:with-db
     dbstruct
     #f
     #t
     (lambda (dbdat db)
       ;; remove previous data