diff options
author | Arun Isaac | 2022-10-30 20:45:32 +0530 |
---|---|---|
committer | Arun Isaac | 2022-10-30 20:45:32 +0530 |
commit | a1f21d10c1b21ce054b5750e6d0748ae9ad7557f (patch) | |
tree | 72384881f8caa460e3f7443e660e0fe926f0e9c9 /dump/utils.scm | |
parent | a727611d57eabdbecf4c75bca75b92bc48231afd (diff) | |
download | gn-transform-databases-a1f21d10c1b21ce054b5750e6d0748ae9ad7557f.tar.gz |
Move string-blank? to (dump utils).
* dump.scm (string-blank?): Move to ...
* dump/utils.scm (string-blank?): ... here.
Diffstat (limited to 'dump/utils.scm')
-rw-r--r-- | dump/utils.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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." |