db: fix error case for disconnect in lock
This commit is contained in:
parent
5f66fad355
commit
8bf8e3cf82
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user