From 3ca62c21b83bd63d9126fd47aabcb4390e77de46 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 3 Oct 2026 15:20:23 +0100
Subject: Migrate away from deprecated inmemory-open.

inmemory-open has been deprecated in xapian 2. In-memory databases are
now opened with a flag to new-WritableDatabase.
---
 xapian/xapian.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index c744101..3c15b70 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -107,8 +107,8 @@
   "Call PROC passing it an in-memory writable database. Only a
 writable in-memory database can be created, since a read-only
 in-memory database would always remain empty and is of little use."
-  (let ((db (inmemory-open)))
-    (dynamic-wind noop (cut proc db) (cut xapian-close-writable db))))
+  (let ((db (new-WritableDatabase "" (DB-BACKEND-INMEMORY))))
+    (dynamic-wind noop (cut proc db) (cut delete-WritableDatabase db))))
 
 (define add-document! WritableDatabase-add-document)
 (define replace-document! WritableDatabase-replace-document)
-- 
cgit 1.4.1