diff options
| author | Munyoki Kilyungi | 2024-08-14 13:53:58 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-08-14 13:53:58 +0300 |
| commit | cacaa1463eb37bcddd16e1e1c813dd39229e7928 (patch) | |
| tree | b96e01b3dd0bc11e6d52874a41a26f62c8070ade | |
| parent | a74ff5e34f5ffbf5114d9765425332999b4cb5fc (diff) | |
| download | gn-transform-databases-cacaa1463eb37bcddd16e1e1c813dd39229e7928.tar.gz | |
Correctly check for blank string in GeneRIF.initial.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/generif.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 5a78db0..ea095f4 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -97,7 +97,7 @@ #:proc string-capitalize-first)) (version-id (field GeneRIF versionId)) (identifier (field GeneRIF Id)) - (initial (field GeneRIF initial)) + (initial (sanitize-rdf-string (field GeneRIF initial))) (reason (field GeneRIF reason)) (email (sanitize-rdf-string (field GeneRIF email))) (categories @@ -138,7 +138,7 @@ (if (string-blank? reason) "" (format #f "gnt:reason ~s ; " reason)) - (if (null? initial) "" (format #f "gnt:initial ~s ; " initial)) + (if (string-blank? initial) "" (format #f "gnt:initial ~s ; " initial)) (if (not (null? categories)) (format #f "~{gnt:belongsToCategory ~s ; ~}" |