aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--xapian/xapian.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index a0876d1..0e2e966 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -1,5 +1,6 @@
;;; guile-xapian --- Guile bindings for Xapian
;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2021 Bob131 <bob@bob131.so>
;;;
;;; This file is part of guile-xapian.
;;;
@@ -94,10 +95,7 @@ in-memory database would always remain empty and is of little use."
(define document-data Document-get-data)
(define document-slot-ref Document-get-value)
-(define (document-bytes document)
- "Return the data of DOCUMENT as a bytevector."
- (u8-list->bytevector
- (map char->integer (string->list (document-data document)))))
+(define document-bytes Document-get-data-bytes)
(define make-stem new-Stem)