diff options
| author | Arun Isaac | 2020-03-05 19:40:48 +0530 |
|---|---|---|
| committer | Arun Isaac | 2020-03-05 19:40:48 +0530 |
| commit | b10b6b76d375fea021a7e93e51c5243fcef99370 (patch) | |
| tree | e68ebdc79511f42079e55832f1481234dff3e19d | |
| parent | bfad1b0e2a88bfe1d4c100046da0d585b96d2a73 (diff) | |
| download | guile-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.scm | 3 |
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) |