From cd719031e4a5ce811b191164666ec9bcaa545330 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 8 Nov 2026 16:39:55 +0000
Subject: Add commit-database!.

---
 xapian/xapian.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 66312d2..86a39c7 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -38,6 +38,7 @@
             add-document!
             delete-document!
             replace-document!
+            commit-database!
             make-document
             document-data
             document-bytes
@@ -115,6 +116,8 @@ in-memory database would always remain empty and is of little use."
 (define delete-document! WritableDatabase-delete-document)
 (define replace-document! WritableDatabase-replace-document)
 
+(define commit-database! WritableDatabase-commit)
+
 (define* (make-document #:key data (terms '()) (values '()))
   (let ((doc (new-Document)))
     (when data
-- 
cgit 1.4.1