From 8f4575eeece7cbad721b1daf61ac8369c48a1891 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Fri, 12 Dec 2014 00:27:30 -0500
Subject: [PATCH] db: make sqlite connections managed by custodians

---
 racket/collects/db/private/sqlite3/connection.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/collects/db/private/sqlite3/connection.rkt b/racket/collects/db/private/sqlite3/connection.rkt
index 71437b7618..fb27890a25 100644
--- 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.