diff options
Diffstat (limited to 'xapian/xapian.scm')
| -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) |