Differences From Artifact [5eebf6582a]:
- File
dbfile.scm
— part of check-in
[e607892c7d]
at
2023-10-20 05:12:31
on branch v1.80
— Merged fork
This node ran run-core-tests.sh through kill-rerun - a pretty good result. Dashboard comes up quickly also. (user: mrwellan, size: 60753) [annotate] [blame] [check-ins using] [more...]
To Artifact [e2ffa01a50]:
- File dbfile.scm — part of check-in [ed85670974] at 2024-05-09 07:49:03 on branch v1.80 — installed all changes from branch v1.8031 (user: mmgraham, size: 60801) [annotate] [blame] [check-ins using]
︙ | ︙ | |||
444 445 446 447 448 449 450 | (if sync-mode (sqlite3:execute db (conc "PRAGMA synchronous = "sync-mode";"))) (if journal-mode (sqlite3:execute db (conc "PRAGMA journal_mode = "journal-mode";"))) (if (and init-proc (or force-init (not db-exists))) (init-proc db)) | | > | 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 | (if sync-mode (sqlite3:execute db (conc "PRAGMA synchronous = "sync-mode";"))) (if journal-mode (sqlite3:execute db (conc "PRAGMA journal_mode = "journal-mode";"))) (if (and init-proc (or force-init (not db-exists))) (init-proc db)) db)) expire-time: 30) (begin (if (file-exists? fname ) (let ((db (sqlite3:open-database fname))) ;; pragmas synchronous not needed because this db is used read-only ;; (sqlite3:execute db (conc "PRAGMA synchronous = "mode";") (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 30000)) ;; read-only but still need timeout db ) |
︙ | ︙ | |||
1511 1512 1513 1514 1515 1516 1517 | (if (file-exists? fname) (handle-exceptions exn #f (with-input-from-file fname (lambda () (equal? key-string (read-line))))) (begin | | | 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 | (if (file-exists? fname) (handle-exceptions exn #f (with-input-from-file fname (lambda () (equal? key-string (read-line))))) (begin (dbfile:print-err "dbfile:simple-file-lock created " fname " but it was gone 0.25 seconds later") #f ) ) ) ) ) ) |
︙ | ︙ |