diff options
| -rw-r--r-- | xapian/xapian.scm | 2 |
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 '())) |