diff options
Diffstat (limited to 'dump')
| -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." |