db/sqlite3: fix recur for busy db

2015-01-24 06:43:46 -07:00 · 2015-01-24 06:43:46 -07:00 · bac11bf8f5
commit bac11bf8f5
parent eb7c6653f3
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/db/private/sqlite3/connection.rkt
+++ b/racket/collects/db/private/sqlite3/connection.rkt
@ -354,7 +354,7 @@
          (define s (simplify-status full-s))
          (cond [(and (= s SQLITE_BUSY) (< iteration busy-retry-limit))
                 (sleep busy-retry-delay)
-                 (handle* who thunk (add1 iteration))]
+                 (handle* who thunk (add1 iteration) pst)]
                [else
                 (when (> iteration 0)
                   (log-db-debug "continuing ~s with ~s after SQLITE_BUSY x ~s"