diff options
| -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." |