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