diff options
| author | Arun Isaac | 2022-07-13 02:56:58 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-13 02:56:58 +0530 |
| commit | 6fa357a7f5793b29473a5fb1a2476eee38d676d3 (patch) | |
| tree | f49a1f7f6f73d8d27076244ab3c451911d1e1f59 | |
| parent | e59bc14771b83d75f9e581bf19550ef078d0199f (diff) | |
| download | tissue-6fa357a7f5793b29473a5fb1a2476eee38d676d3.tar.gz tissue-6fa357a7f5793b29473a5fb1a2476eee38d676d3.tar.lz tissue-6fa357a7f5793b29473a5fb1a2476eee38d676d3.zip | |
document: Use string-blank?.
* tissue/document.scm (document-snippet-source-text): Use
string-blank?.
| -rw-r--r-- | tissue/document.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tissue/document.scm b/tissue/document.scm index ada72eb..ef3ca21 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -162,7 +162,7 @@ and further text, increase-termpos! must be called before indexing." result snippet." ;; Remove blank lines from document text. (string-join - (remove (cut string-every char-set:whitespace <>) + (remove string-blank? (string-split (document-text document) #\newline)) "\n")) |