summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2020-03-05 19:40:48 +0530
committerArun Isaac2020-03-05 19:40:48 +0530
commitb10b6b76d375fea021a7e93e51c5243fcef99370 (patch)
treee68ebdc79511f42079e55832f1481234dff3e19d
parentbfad1b0e2a88bfe1d4c100046da0d585b96d2a73 (diff)
downloadguile-xapian-b10b6b76d375fea021a7e93e51c5243fcef99370.tar.gz
guile-xapian-b10b6b76d375fea021a7e93e51c5243fcef99370.tar.lz
guile-xapian-b10b6b76d375fea021a7e93e51c5243fcef99370.zip
xapian: Wrap Database-get-doccount.
* xapian/xapian.scm (database-document-count): New function.
-rw-r--r--xapian/xapian.scm3
1 files changed, 3 insertions, 0 deletions
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)