diff options
| author | Munyoki Kilyungi | 2026-02-06 05:32:10 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-02-06 05:32:10 +0300 |
| commit | 418568557b2b0d2ca977e5fe1594ed280b4f92f8 (patch) | |
| tree | d1c287d7622c8b85f98efd1aeb3ddd01c87304f3 | |
| parent | d078ef4f51a3b47e7013f061698b5da0a95ebf55 (diff) | |
| download | gn-transform-databases-418568557b2b0d2ca977e5fe1594ed280b4f92f8.tar.gz | |
Move blank-p to strings.scm.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/phenotype.scm | 2 | ||||
| -rw-r--r-- | transform/strings.scm | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/examples/phenotype.scm b/examples/phenotype.scm index 72d3ed3..43e92f1 100755 --- a/examples/phenotype.scm +++ b/examples/phenotype.scm @@ -13,8 +13,6 @@ (transform triples) (transform special-forms)) -(define (blank-p str) - (if (string-blank? str) #f str)) (define-transformer gn:set->gn:dataset diff --git a/transform/strings.scm b/transform/strings.scm index 51c5ed1..7b62349 100644 --- a/transform/strings.scm +++ b/transform/strings.scm @@ -17,8 +17,12 @@ string-capitalize-first normalize-string-field fix-email-id + blank-p investigator-attributes->id)) +(define (blank-p str) + (if (string-blank? str) #f str)) + (define (lower-case-and-replace-spaces str) (string-map (lambda (c) |