diff options
| -rw-r--r-- | xapian/xapian.scm | 6 |
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) |