From a1f21d10c1b21ce054b5750e6d0748ae9ad7557f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 30 Oct 2022 20:45:32 +0530
Subject: Move string-blank? to (dump utils).

* dump.scm (string-blank?): Move to ...
* dump/utils.scm (string-blank?): ... here.
---
 dump.scm | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index a763671..8e2057e 100755
--- a/dump.scm
+++ b/dump.scm
@@ -128,10 +128,6 @@ characters with an underscore and prefixing with gn:PREFIX."
              (drop char-list 1)
              char-list)))))
 
-(define (string-blank? str)
-  "Return non-#f if STR consists only of whitespace characters."
-  (string-every char-set:whitespace str))
-
 (define (scm->triples alist id)
   (for-each (match-lambda
               ((predicate . object)
-- 
cgit v1.2.3