Differences From Artifact [9a280937cc]:
- File server.scm — part of check-in [5de9fdab73] at 2013-03-19 10:24:30 on branch newdashboard — Partial re-implementation (again) of transaction wrapped writes (user: mrwellan, size: 3597) [annotate] [blame] [check-ins using]
To Artifact [34877c239b]:
- File server.scm — part of check-in [69c6ef28ac] at 2013-03-19 11:26:54 on branch newdashboard — Partial re-implementation (again) of transaction wrapped writes, now working except for transaction within transaction issue (user: mrwellan, size: 3683) [annotate] [blame] [check-ins using]
| ︙ | |||
64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | + + |
;; Flush the queue every third of a second. Can we assume that setup-for-run
;; has already been done?
(define (server:write-queue-handler)
(if (setup-for-run)
(let ((db (open-db)))
(let loop ()
(mutex-lock! *db:process-queue-mutex*)
(db:process-cached-writes db)
(mutex-unlock! *db:process-queue-mutex*)
(thread-sleep! 0.3)
(loop)))
(begin
(debug:print 0 "ERROR: failed to setup for Megatest in server:write-queue-handler")
(exit 1))))
;;======================================================================
|
| ︙ |