db: make sqlite connections managed by custodians

2014-12-12 00:27:30 -05:00 · 2014-12-12 00:27:30 -05:00 · 8f4575eeec
commit 8f4575eeec
parent 6039d6cc0b
1 changed files with 2 additions and 1 deletions
--- a/racket/collects/db/private/sqlite3/connection.rkt
+++ b/racket/collects/db/private/sqlite3/connection.rkt
@ -2,6 +2,7 @@
 (require racket/class
         ffi/unsafe
         ffi/unsafe/atomic
+         ffi/unsafe/custodian
         unstable/error
         "../generic/interfaces.rkt"
         "../generic/common.rkt"
@ -375,7 +376,7 @@
    ;; ----

    (super-new)
-    (register-finalizer this
+    (register-finalizer-and-custodian-shutdown this
                        (lambda (obj)
                          ;; Keep a reference to the class to keep all FFI callout objects
                          ;; (eg, sqlite3_close) used by its methods from being finalized.