db: fix error case for disconnect in lock

This commit is contained in:
Ryan Culpepper 2021-03-19 14:21:19 +01:00
parent 5f66fad355
commit 8bf8e3cf82

View File

@ -105,7 +105,7 @@
(end-atomic)] (end-atomic)]
[else [else
(end-atomic) (end-atomic)
(error)]) (error/disconnect-in-lock 'sqlite3)])
(sync os-resp-chan)) (sync os-resp-chan))
;; sync-call : (DB/#f -> X) -> X ;; sync-call : (DB/#f -> X) -> X