xapian: Return list from inner lambda in mset-sxml-snippet.

* xapian/xapian.scm (mset-sxml-snippet): Consistently written list
from inner lambda.

1 files changed, 2 insertions, 2 deletions

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 6f6a4f2..80b4b9b 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -303,11 +303,11 @@ function."
      (append-map (match-lambda
                    ;; Apply highlight-proc if highlit text.
                    (('b text)
-                    (highlight-proc text))
+                    (list (highlight-proc text)))
                    ;; Add (br) if end of line.
                    ((? (cut string-suffix? "\n" <>) text)
                     (list (string-trim-right text #\newline)
                           '(br)))
                    ;; Else, return verbatim.
-                   (text text))
+                   (text (list text)))
                  children))))