Overview
| Comment: | fixed a typo in db:cautious-open-db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
49e9838ddbf7c0836197660b11cf6992 |
| User & Date: | mmgraham on 2022-12-07 10:38:00 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-12-08
| ||
| 17:47 | Added several checks for *toppath*, reduce frequeency of could not get lock messages, only emit message for server info extraction if the file exists. Increase number of servers allowed to run and increase number of serves to select from check-in: 3f67f5389d user: mrwellan tags: v1.80 | |
|
2022-12-07
| ||
| 10:38 | fixed a typo in db:cautious-open-db check-in: 49e9838ddb user: mmgraham tags: v1.80 | |
|
2022-12-02
| ||
| 16:54 | Corrected db version mismatch issue from 1.70 to 1.80 check-in: 946a699475 user: mmgraham tags: v1.80, v1.8001 | |
Changes
Modified dbfile.scm from [d24edd08a7] to [c0155e1415].
| ︙ | ︙ | |||
326 327 328 329 330 331 332 |
(define (dbfile:print-err . params)
(with-output-to-port
(current-error-port)
(lambda ()
(apply print params))))
(define (dbfile:cautious-open-database fname init-proc sync-mode journal-mode #!optional (tries-left 500))
| | | 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 |
(define (dbfile:print-err . params)
(with-output-to-port
(current-error-port)
(lambda ()
(apply print params))))
(define (dbfile:cautious-open-database fname init-proc sync-mode journal-mode #!optional (tries-left 500))
(let* ((busy-file (conc fname "-journal"))
(delay-time (* (- 51 tries-left) 1.1))
(write-access (file-write-access? fname))
(dir-access (file-write-access? (pathname-directory fname)))
(retry (lambda ()
(thread-sleep! delay-time)
(if (> tries-left 0)
(dbfile:cautious-open-database fname init-proc
|
| ︙ | ︙ |