db: fix sqlite3 custodian/finalizer registration

See racket/racket#3841.
This commit is contained in:
Ryan Culpepper 2021-05-23 02:29:30 +02:00
parent 64b834c9c0
commit 64f0c8a7ed

View File

@ -31,11 +31,10 @@
busy-retry-delay)
(super-new)
(register-finalizer this shutdown-connection)
(define -db db)
(define saved-tx-status #f) ;; set by with-lock, only valid while locked
(define creg (register-custodian-shutdown this shutdown-connection))
(define creg (register-custodian-shutdown this shutdown-connection #:ordered? #t))
(register-finalizer this shutdown-connection)
(sqlite3_extended_result_codes db #t)