diff options
| author | Arun Isaac | 2026-11-08 16:39:55 +0000 |
|---|---|---|
| committer | Arun Isaac | 2026-11-08 16:39:55 +0000 |
| commit | cd719031e4a5ce811b191164666ec9bcaa545330 (patch) | |
| tree | b71cdccb1ba84307ccbdc9e005c3391bfa1da527 | |
| parent | 4fa06ec83c87657bee65431ae13abbd7b92b4a34 (diff) | |
| download | guile-xapian-cd719031e4a5ce811b191164666ec9bcaa545330.tar.gz guile-xapian-cd719031e4a5ce811b191164666ec9bcaa545330.tar.lz guile-xapian-cd719031e4a5ce811b191164666ec9bcaa545330.zip | |
| -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 |