diff options
| -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) |