Differences From Artifact [41e679e50c]:
- File lock-queue.scm — part of check-in [8d21f434ab] at 2013-08-12 01:18:42 on branch v1.55 — Added missing finalize for lock-queue (user: matt, size: 4573) [annotate] [blame] [check-ins using]
To Artifact [343ec1ffa5]:
- File lock-queue.scm — part of check-in [234e173a33] at 2013-08-16 13:36:37 on branch v1.55 — Added busy handler to lock-queue (user: mrwellan, size: 4616) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
42 43 44 45 46 47 48 49 50 51 52 53 54 55 | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | + |
(sqlite3:execute
db
"CREATE TABLE IF NOT EXISTS runlocks (
id INTEGER PRIMARY KEY,
test_id INTEGER,
run_lock TEXT,
CONSTRAINT runlock_constraint UNIQUE (run_lock));")))
(sqlite3:set-busy-handler! db handler)
db))
(define (lock-queue:set-state db test-id newstate)
(sqlite3:execute db "UPDATE queue SET state=? WHERE test_id=?;"
newstate
test-id))
|
| ︙ |