Differences From Artifact [82673dacdb]:
- File attic/common.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 148581) [annotate] [blame] [check-ins using]
- File common.scm — part of check-in [405c573a88] at 2021-02-15 20:34:50 on branch v1.65-real — Oops. Dropped a function. Added it back... (user: matt, size: 148581) [annotate] [blame] [check-ins using]
To Artifact [d73e5b44ad]:
- File common.scm (unpublished)— part of check-in [9f704b7ade] at 2021-02-25 22:24:30 on branch v1.65-lazyqueue-items-rollup-2 — add finalize of no-sync and re-enable the mutex From: 1775254e3f45db753fe942e0f142c3ec732dbcb6 User: matt (user: matt, size: 148758) [annotate] [blame] [check-ins using]
| ︙ | |||
1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 | 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 | + + + + + |
(let ((db (cdr *task-db*)))
(if (sqlite3:database? db)
(begin
(sqlite3:interrupt! db)
(sqlite3:finalize! db #t)
;; (vector-set! *task-db* 0 #f)
(set! *task-db* #f)))))
(if (and *no-sync-db*
(sqlite3:database? *no-sync-db*))
(begin
(sqlite3:interrupt! *no-sync-db*)
(sqlite3:finalize! *no-sync-db* #t)))
(http-client#close-all-connections!)
;; (if (and *runremote*
;; (remote-conndat *runremote*))
;; (begin
;; (http-client#close-all-connections!))) ;; for http-client
(if (not (eq? *default-log-port* (current-error-port)))
(close-output-port *default-log-port*))
|
| ︙ |