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/utils.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'dump')

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