summaryrefslogtreecommitdiff
path: root/examples/search.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/search.scm')
-rw-r--r--examples/search.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/search.scm b/examples/search.scm
index e8f8aa5..eef075f 100644
--- a/examples/search.scm
+++ b/examples/search.scm
@@ -1,5 +1,5 @@
;;; guile-xapian --- Guile bindings for Xapian
-;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2020, 2021 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of guile-xapian.
;;;
@@ -34,7 +34,7 @@
;; prefixes for field search.
(query (parse-query querystring
#:stemmer (make-stem "en")
- #:prefixes '(("title" ."S")
+ #:prefixes '(("title" . "S")
("description" . "XD")))))
;; Fold over the results, printing them.
(mset-fold (lambda (item _)