db: fix error case for disconnect in lock

2021-03-19 14:21:19 +01:00 · 2021-03-19 14:21:19 +01:00 · 8bf8e3cf82
commit 8bf8e3cf82
parent 5f66fad355
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/db/private/generic/ffi-common.rkt
+++ b/racket/collects/db/private/generic/ffi-common.rkt
@ -105,7 +105,7 @@
             (end-atomic)]
            [else
             (end-atomic)
-             (error)])
+             (error/disconnect-in-lock 'sqlite3)])
      (sync os-resp-chan))

    ;; sync-call : (DB/#f -> X) -> X