Overview
| Comment: | Fixed missing param |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.81-dechatter | v1.81-fix-extract-scripts |
| Files: | files | file ages | folders |
| SHA1: |
f55af3c81d84bf94471024f2773d3dcc |
| User & Date: | matt on 2024-09-10 19:27:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-09-10
| ||
| 19:28 | Pulling v1.81-dechatter forward Leaf check-in: 1de3ad37fe user: matt tags: v1.81-dechatter | |
| 19:27 | Fixed missing param check-in: f55af3c81d user: matt tags: v1.81-dechatter, v1.81-fix-extract-scripts | |
| 18:43 | Annotated some areas needing to be changed. check-in: 29a1a276d0 user: matt tags: v1.81-dechatter, v1.81-fix-extract-scripts | |
Changes
Modified db.scm from [e2b7a2ee47] to [539e7aaee4].
| ︙ | ︙ | |||
1762 1763 1764 1765 1766 1767 1768 | ;; 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 | | | 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 |
;; 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 dbstruct run-id))))
(mutex-lock! *db-transaction-mutex*)
(db:with-db
dbstruct
#f
#t
(lambda (dbdat db)
;; remove previous data
|
| ︙ | ︙ |