Overview
| Comment: | Bug hidden in db_records ... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution-remodularization |
| Files: | files | file ages | folders |
| SHA1: |
cd9be98ea85106e09168028c4a0ff45b |
| User & Date: | matt on 2024-02-04 09:00:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-02-04
| ||
| 09:01 | More tuning of module references check-in: 1a7d31cc57 user: matt tags: v1.80-revolution-remodularization, passes-many-tests | |
| 09:00 | Bug hidden in db_records ... check-in: cd9be98ea8 user: matt tags: v1.80-revolution-remodularization | |
|
2024-02-03
| ||
| 21:48 | wip check-in: 6771ae5be3 user: matt tags: v1.80-revolution-remodularization | |
Changes
Modified db_records.scm from [31669086a3] to [4396dc0985].
| ︙ | ︙ | |||
165 166 167 168 169 170 171 | ;; The steps table (define (make-db:steps-table)(make-vector 5)) (define (tdb:steps-table-get-stepname vec) (vector-ref vec 0)) (define (tdb:steps-table-get-start vec) (vector-ref vec 1)) (define (tdb:steps-table-get-end vec) (vector-ref vec 2)) (define (tdb:steps-table-get-status vec) (vector-ref vec 3)) (define (tdb:steps-table-get-runtime vec) (vector-ref vec 4)) | | | 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 | ;; The steps table (define (make-db:steps-table)(make-vector 5)) (define (tdb:steps-table-get-stepname vec) (vector-ref vec 0)) (define (tdb:steps-table-get-start vec) (vector-ref vec 1)) (define (tdb:steps-table-get-end vec) (vector-ref vec 2)) (define (tdb:steps-table-get-status vec) (vector-ref vec 3)) (define (tdb:steps-table-get-runtime vec) (vector-ref vec 4)) (define (tdb:steps-table-get-log-file vec) (vector-ref vec 5)) (define (tdb:step-stable-set-stepname! vec val)(vector-set! vec 0 val)) (define (tdb:step-stable-set-start! vec val)(vector-set! vec 1 val)) (define (tdb:step-stable-set-end! vec val)(vector-set! vec 2 val)) (define (tdb:step-stable-set-status! vec val)(vector-set! vec 3 val)) (define (tdb:step-stable-set-runtime! vec val)(vector-set! vec 4 val)) |
| ︙ | ︙ |