aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--xapian/xapian.scm4
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))))