Add delete-document!. HEAD master

1 files changed, 2 insertions, 0 deletions

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 3c15b70..66312d2 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -36,6 +36,7 @@
             call-with-writable-database
             call-with-in-memory-database
             add-document!
+            delete-document!
             replace-document!
             make-document
             document-data
@@ -111,6 +112,7 @@ in-memory database would always remain empty and is of little use."
     (dynamic-wind noop (cut proc db) (cut delete-WritableDatabase db))))
 
 (define add-document! WritableDatabase-add-document)
+(define delete-document! WritableDatabase-delete-document)
 (define replace-document! WritableDatabase-replace-document)
 
 (define* (make-document #:key data (terms '()) (values '()))