diff options
| author | Arun Isaac | 2023-11-16 20:02:56 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-11-16 20:02:56 +0000 |
| commit | c7d8eddd64d5f12bff2ec690b44424d23cf3479f (patch) | |
| tree | 29db7a6903f32adfe84af023e888dea9ba74c96f | |
| parent | 0e4677e095c8ac89bb3570fb9c737bd92663890a (diff) | |
| download | guile-xapian-c7d8eddd64d5f12bff2ec690b44424d23cf3479f.tar.gz guile-xapian-c7d8eddd64d5f12bff2ec690b44424d23cf3479f.tar.lz guile-xapian-c7d8eddd64d5f12bff2ec690b44424d23cf3479f.zip | |
xapian: Return list from inner lambda in mset-sxml-snippet.
* xapian/xapian.scm (mset-sxml-snippet): Consistently written list
from inner lambda.
| -rw-r--r-- | xapian/xapian.scm | 4 |
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)))) |