From 6fa357a7f5793b29473a5fb1a2476eee38d676d3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 13 Jul 2022 02:56:58 +0530
Subject: document: Use string-blank?.

* tissue/document.scm (document-snippet-source-text): Use
string-blank?.
---
 tissue/document.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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