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 ----
 dump/utils.scm | 7 ++++++-
 2 files changed, 6 insertions(+), 5 deletions(-)

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)
diff --git a/dump/utils.scm b/dump/utils.scm
index 1368a67..d033f17 100644
--- a/dump/utils.scm
+++ b/dump/utils.scm
@@ -2,10 +2,15 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
-  #:export (translate-forms
+  #:export (string-blank?
+            translate-forms
             collect-forms
             map-alist))
 
+(define (string-blank? str)
+  "Return non-#f if STR consists only of whitespace characters."
+  (string-every char-set:whitespace str))
+
 (define (translate-forms from translator x)
   "Recursively pass (FROM ...) forms in source X to TRANSLATOR, and
 replace them with the return value."
-- 
cgit v1.2.3