suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add diagnostics for SQLITE_BUSY

Browse Source
This commit is contained in:
Ryan Culpepper 2012-11-30 14:20:02 -05:00
parent 46fb05e6ee
commit fa21ce397c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/db/private/sqlite3/connection.rkt
View File

@ -306,10 +306,14 @@
(call-with-values thunk (call-with-values thunk
(lambda (s . rest) (lambda (s . rest)
(cond [(and (= s SQLITE_BUSY) (< iteration busy-retry-limit)) (cond [(and (= s SQLITE_BUSY) (< iteration busy-retry-limit))
(dbdebug "sqlite: busy, will retry")
(sleep busy-retry-delay) (sleep busy-retry-delay)
(handle* who thunk (add1 iteration))] (handle* who thunk (add1 iteration))]
[else (apply values (handle-status who s) rest)])))) [else
(when (> iteration 0)
(dbdebug "continuing with ~s after SQLITE_BUSY x ~s"
(if (= s SQLITE_BUSY) "SQLITE_BUSY" s)
iteration))
(apply values (handle-status who s) rest)]))))
;; Some errors can cause whole transaction to rollback; ;; Some errors can cause whole transaction to rollback;
;; (see http://www.sqlite.org/lang_transaction.html) ;; (see http://www.sqlite.org/lang_transaction.html)