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 /examples/generif.scm | |
| 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>
Diffstat (limited to 'examples/generif.scm')
| -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 |