diff options
| author | Arun Isaac | 2026-10-03 15:20:23 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-10-03 15:20:23 +0100 |
| commit | 3ca62c21b83bd63d9126fd47aabcb4390e77de46 (patch) | |
| tree | cc1ee14fd713e4a9f7704d294d80ff4c7c68e20b /xapian | |
| parent | 3a9ee84caa89e875d3850e502b3f486fe17b304b (diff) | |
| download | guile-xapian-3ca62c21b83bd63d9126fd47aabcb4390e77de46.tar.gz guile-xapian-3ca62c21b83bd63d9126fd47aabcb4390e77de46.tar.lz guile-xapian-3ca62c21b83bd63d9126fd47aabcb4390e77de46.zip | |
Migrate away from deprecated inmemory-open.
inmemory-open has been deprecated in xapian 2. In-memory databases are now opened with a flag to new-WritableDatabase.
Diffstat (limited to 'xapian')
| -rw-r--r-- | xapian/xapian.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm index c744101..3c15b70 100644 --- a/xapian/xapian.scm +++ b/xapian/xapian.scm @@ -107,8 +107,8 @@ "Call PROC passing it an in-memory writable database. Only a writable in-memory database can be created, since a read-only in-memory database would always remain empty and is of little use." - (let ((db (inmemory-open))) - (dynamic-wind noop (cut proc db) (cut xapian-close-writable db)))) + (let ((db (new-WritableDatabase "" (DB-BACKEND-INMEMORY)))) + (dynamic-wind noop (cut proc db) (cut delete-WritableDatabase db)))) (define add-document! WritableDatabase-add-document) (define replace-document! WritableDatabase-replace-document) |