From b10b6b76d375fea021a7e93e51c5243fcef99370 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 5 Mar 2020 19:40:48 +0530
Subject: xapian: Wrap Database-get-doccount.

* xapian/xapian.scm (database-document-count): New function.
---
 xapian/xapian.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 8801838..181a3e8 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -24,6 +24,7 @@
   #:export (xapian-open
             xapian-close
             call-with-database
+            database-document-count
             xapian-open-writable
             xapian-close-writable
             call-with-writable-database
@@ -51,6 +52,8 @@
   (let ((db (xapian-open dbpath)))
     (dynamic-wind noop (cut proc db) (cut xapian-close db))))
 
+(define database-document-count Database-get-doccount)
+
 (define xapian-open-writable new-WritableDatabase)
 (define xapian-close-writable delete-WritableDatabase)
 
-- 
cgit v1.2.3