From 84d911233db8a159cd0620aa71feb39a71486648 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Fri, 19 Dec 2025 11:36:15 +0100
Subject: Make sure to close DB

---
 gn/db/mysql.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gn/db/mysql.scm b/gn/db/mysql.scm
index 223b5fd..623a726 100644
--- a/gn/db/mysql.scm
+++ b/gn/db/mysql.scm
@@ -37,7 +37,9 @@
     )))
 
 (define (call-with-db thunk)
-  (thunk (db-open)))
+  (let [(db (db-open))]
+    (thunk db)
+    (dbi-close db)))
 
 (define (ensure db msg1)
   "Use DBI-style handle to report an error. On error the program will stop."
-- 
cgit 1.4.1