aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)