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 | |
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.
-rwxr-xr-x | dump.scm | 4 | ||||
-rw-r--r-- | dump/utils.scm | 7 |
2 files changed, 6 insertions, 5 deletions
@@ -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." |