diff options
| -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 66312d2..86a39c7 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -38,6 +38,7 @@ add-document! delete-document! replace-document! + commit-database! make-document document-data document-bytes @@ -115,6 +116,8 @@ in-memory database would always remain empty and is of little use." (define delete-document! WritableDatabase-delete-document) (define replace-document! WritableDatabase-replace-document) +(define commit-database! WritableDatabase-commit) + (define* (make-document #:key data (terms '()) (values '())) (let ((doc (new-Document))) (when data |