diff options
author | Munyoki Kilyungi | 2024-08-16 12:55:52 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2024-08-16 12:57:09 +0300 |
commit | b4af4f5e7494ec9d8fd17d3e3df6c264fffb3909 (patch) | |
tree | e5d0393dbfa2f9d0b0be6f3a9a4ad8964c3897c6 | |
parent | 59c576cf30b435a6c90e09d4e50feaf21ba28970 (diff) | |
download | gn-transform-databases-b4af4f5e7494ec9d8fd17d3e3df6c264fffb3909.tar.gz |
Correctly check for the initial when transforming GeneRIF.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-x | examples/generif.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index d4d483e..11235e0 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -115,7 +115,9 @@ (if (string-blank? reason) "" (format #f "gnt:reason ~s ; " reason)) - (if (string-blank? initial) "" (format #f "gnt:initial ~s ; " initial)) + (if (or (null? initial) + (string-blank? initial)) + "" (format #f "gnt:initial ~s ; " initial)) (if (string-blank? category) "" (format #f |