From c7d8eddd64d5f12bff2ec690b44424d23cf3479f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 16 Nov 2023 20:02:56 +0000
Subject: xapian: Return list from inner lambda in mset-sxml-snippet.

* xapian/xapian.scm (mset-sxml-snippet): Consistently written list
from inner lambda.
---
 xapian/xapian.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'xapian')

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))))
-- 
cgit v1.2.3